test.icl

   1 module test
   2
   3 import iTasks
   4
   5 Start w = doTasks hello w
   6
   7 hello :: Task String
   8 hello = enterInformation [] <<@ Title "What is your name?"
   9         >>? \n->viewInformation [] ("Hello " +++ n) <<@ Title "Hello"