15 lines
238 B
Plaintext
15 lines
238 B
Plaintext
import system.io
|
|
|
|
open io
|
|
|
|
#check (++)
|
|
def greet (s : string) : io unit :=
|
|
put_str $ "Hello, " ++ s ++ "!\n"
|
|
|
|
def main: io unit := do
|
|
put_str "Gamarjoba, munde!\n",
|
|
put_str "Onamae wa? ",
|
|
name <- get_line,
|
|
greet name
|
|
|