import qualified Data.Map as DM
import mTask
+import Devices.mTaskDevice
import iTasks._Framework.Serialization
-derive class iTask UserLED, Main, ByteCode, Stmt, BC, BCState
+derive class iTask UserLED
countAndLed :: Main (ByteCode () Stmt)
countAndLed = sds \x=1 In sds \pinnetje=1 In {main =