mirror of
https://git.adityakumar.xyz/flakes.git
synced 2024-11-09 22:19:45 +00:00
16 lines
392 B
Forth
16 lines
392 B
Forth
namespace HelloWorld
|
|
|
|
[<RequireQualifiedAccess>]
|
|
module Program =
|
|
|
|
let construct (name : string) : string = sprintf "Hello, %s!" name
|
|
|
|
[<EntryPoint>]
|
|
let main argv =
|
|
match argv |> Array.tryExactlyOne with
|
|
| Some name ->
|
|
printfn "%s" (construct name)
|
|
0
|
|
| None ->
|
|
eprintfn "Expected exactly one argument"
|
|
1
|