module test

import iTasks

Start w = doTasks hello w

hello :: Task String
hello = enterInformation [] <<@ Title "What is your name?"
	>>? \n->viewInformation [] ("Hello " +++ n) <<@ Title "Hello"