- allBC = [BCNop, BCPush "", BCPop, BCNeg, BCNot, BCAdd, BCSub, BCMul,
- BCDiv, BCAnd, BCOr, BCEq, BCNeq, BCLes, BCGre, BCLeq, BCGeq,
- BCJmp 0, BCJmpT 0, BCJmpF 0]
+ bc = sds \x=43 In {main = If (x ==. lit 42) (analogRead A1) (analogRead A0)}
+ b = toRealByteCode bc
+//Start :: ByteCode Int Expr
+//Start = If (lit True) (analogRead A1) (analogRead A0)
+//Start = If ((lit 36) ==. (lit 42)) (noOp) (noOp)