9 palindrome :: Task (Maybe String)
11 = enterInformation "Enter a palindrome" []
12 >>* [ OnAction ActionOk (ifValue palindrome (\v -> return (Just v)))
13 , OnAction ActionCancel (always (return Nothing))
15 >>= viewInformation "Result is:" []
17 palindrome s = lc == reverse lc
22 //t :: Task (Int, Int)
23 //t = enterInformation "Left" [] -&&- enterInformation "Right" []
24 // >>= viewInformation "Result" []
26 //import Data.GenDefault
103 //Start = gDefault{|*|}