open System

[<EntryPoint>]

let main (args : string[]) = 

        if args.Length <> 2 then
            failwith "Blad: podaj dwa argumenty na wejscie!"

        let greeting, thing = args.[0], args.[1]
        let timeOfDay = DateTime.Now.ToString("hh:mm tt")

        (* prosta metoda podnoszenia do kwadratu *)
        let square x = x * x
        let result = square 4

        printfn "%s, %s at %s, %i" greeting thing timeOfDay result

        0