diff --git a/gamarjoba.lean b/gamarjoba.lean
index 3ff7141..5e97341 100644
--- a/gamarjoba.lean
+++ b/gamarjoba.lean
@@ -2,5 +2,12 @@ import system.io
 
 open io
 
-def main: io unit :=
-    put_str "Gamarjoba, munde!"
+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
+