import Devices.mTaskDevice
import iTasks._Framework.Serialization
+countTo5 :: Main (ByteCode () Stmt)
+countTo5 = sds \x=0 In {main =
+ x =. x +. lit 1 :.
+ pub x :.
+ IF ( x >. lit 5) (
+ retrn x
+ ) (
+ noOp
+ )}
+
count :: Main (ByteCode () Stmt)
count = sds \x=0 In {main = x =. x +. lit 1 :. pub x :. noOp}
,("blink", ledSelection @ blink)
,("blinkShare", treturn blinkShare)
,("count", treturn count)
+ ,("countTo5", treturn countTo5)
]