labo2-fsharp/labo2-fsharp/Program.fs

   1 (*
   2 Crypto - Labo n°2.
   3 *)
   4
   5 module Labo2.Main
   6
   7 open System
   8 open Crypto
   9
  10 [<EntryPoint>]
  11 let main args =
  12     printfn "Labo n°2"
  13
  14     if Array.exists ((=) "tests") args then
  15         testRSA.Force ()
  16         testRSASignature.Force ()
  17     0