+// t = viewInformation [ViewUsing id progressBar] (Just 80, Just long) <<@ Title "bork"
+// long = "borkueaohutenhuaostuehasunethuaosnuhtesuhaotsuehtausneohtusoauhtesauhtesnuhtasuhetauhosunehtoauesnhtaueshautesnhutaonsuhetaonsuhetansuhetansuhetaosnuehtaosnuhetaosunhaoetsunehatounsoehtasunhteunaoshuteoasnuhteaosuhnaoetsnuheotasunehotasunhetusnahotueaou"
+
+
import iTasks
import iTasks
-Start w = doTasks t w
-where
- t = viewInformation [ViewUsing id progressBar] (Just 80, Just "bork")