+viewList = (enterChoiceWithShared "Idea collection" [] ideas)
+ >&^ viewSharedInformation "Selected idea" []
+
+mainTask = enterInformation "What is your username?" []
+ >>= \name.forever (
+ (addNewIdea name -|| viewList)
+// >>* [OnAction ActionOk (always (return (get ideas)))]
+// OnAction (Action "Delete All" [ActionIcon "delete"]) (always (upd (\_.[]) ideas))
+//// OnAction (Action "Delete" [ActionIcon "delete"]) (always (return Void)),
+//// OnAction (Action "Like" [ActionIcon "like"]) (always (return Void))
+// ]
+ )