module Main where
import Control.Workflow



main = getName >>= putStrLn

getName=  exec1nc "test" $ do
    name <- step $ do
               putStrLn "your name?"
               getLine

    return $ "hello " ++ name