allmTasks :: Map String (Task (Main (ByteCode () Stmt)))
allmTasks = 'DM'.fromList
[("countAndLed", treturn countAndLed)
,("ledOn", ledSelection @ ledtOn)
,("ledOff", ledSelection @ ledtOff)
allmTasks :: Map String (Task (Main (ByteCode () Stmt)))
allmTasks = 'DM'.fromList
[("countAndLed", treturn countAndLed)
,("ledOn", ledSelection @ ledtOn)
,("ledOff", ledSelection @ ledtOff)