instance type2string MTask where type2string _ = "task"
instance type2string DigitalPin where type2string _ = "int"
instance type2string AnalogPin where type2string _ = "int"
+instance type2string UserLED where type2string _ = "int"
instance type2string String where type2string _ = "Char []"
instance type2string () where type2string _ = ""
instance == DigitalPin where (==) x y = x === y
instance == AnalogPin where (==) x y = x === y
+instance == UserLED where (==) x y = x === y
-derive gPrint Pin, Button, UserLED, AnalogPin, DigitalPin, PinMode
-derive class gCons Pin, Button, UserLED, AnalogPin, DigitalPin, PinMode
-
+//derive class gCons UserLED, Long, Pin, Button, UserLED, AnalogPin, DigitalPin, PinMode
+//derive class iTask UserLED, Long, Pin, Button, UserLED, AnalogPin, DigitalPin, PinMode
tab =: toString (repeatn tabSize ' ')
tabSize :== 2