open console string

prompt msg =  
  writen msg `seq`
  write ">" `seq`
  readn()

greeting name =  
  format "Hello, {0}" name

prompt "What's your name?" |> greeting |> writen  
open console string

prompt msg =  
  writen msg
  `seq` write ">"
  `seq` readn()

greeting name =  
    format "Hello, {0}" name

name = prompt "What's your name?"

message = greeting name

writen message  
open console

prompt msg = writen msg `seq` write ">" `seq` readn()  
prompt "What's your name?" |> printf "Hello, {0}"  
open console

greet_the_user

greet_the_user = printf "Hello, {0}" user_name

user_name = prompt "What's your name?"

prompt msg = writen msg `seq` write ">" `seq` readn()  
open console

printf "Hello, {0}" user_name  
 where user_name = prompt "What's your name?"
        where prompt msg = writen msg `seq` write ">" `seq` readn()
open console string

prompt msg = writen msg `seq` write ">" `seq`  readn()

greet_the_user  
 where greet_the_user = writen greeting
        where greeting = format "Hello, {0}" name
               where name = prompt "What's your name?"
greet_the_user =  
  let greeting = format "Hello, {0}" name
      name = prompt "What's your name?"
      prompt msg = writen msg `seq` write ">" `seq`  readn()
  in writen greeting
open console

let name = prompt "What's your name"  
  in printf "Hello, {0}" name
  where prompt msg = writen msg `seq` write ">" `seq`  readn()
open console

greet_the_user =  
  let fname = prompt "Enter first name"
      lname = prompt "Enter last name"
  in printf "Hello, {0} {1}" fname lname
  where prompt msg = writen msg `seq` write ">" `seq`  readn()
open console

prompt msg = writen msg `seq` write ">" `seq`  readn()

greet_the_user =  
  printf "Hello, {0} {1}" fname lname
  where fname = prompt "Enter first name"
        lname = prompt "Enter last name"
greet_the_user =  
  let fname = prompt "Enter first name"
      lname = prompt "Enter last name"
      greeting = format "Hello, {0} {1}" fname lname
      prompt msg = writen msg `seq` write ">" `seq`  readn()
  in writen greeting
greet_the_user =  
  let fname = prompt "Enter first name"
      lname = prompt "Enter last name"
  in printf "Hello, {0} {1}" fname lname
  where prompt msg = writen msg `seq` write ">" `seq`  readn()
open console

greet_the_user =  
  printf "Hello, {0} {1}" fname lname
  where fname = prompt "Enter first name"
        lname = prompt "Enter last name"
        prompt msg = writen msg `seq` write ">" `seq`  readn()
open console

greet_the_user =  
  let fname = prompt "Enter first name"
      lname = prompt "Enter last name"
  in print_greeting fname lname
  where print_greeting f l = printf "Hello, {0} {1}" f l
        prompt msg = writen msg `seq` write ">" `seq`  readn()
open console

main =  
  let
      fname = prompt "What's your first name?"
      lname = prompt "What's your last name?"
  in 
    greet fname lname
  where 
    greet fn ln = printf "Hello, {0} {1}" fn ln
    prompt msg = writen msg `seq` write ">" `seq` readn()