+ lit x = BC [BCPush $ toCode x]
+ (+.) x y = x <++> y <+-> [BCAdd]
+ (-.) x y = x <++> y <+-> [BCSub]
+ (*.) x y = x <++> y <+-> [BCMul]
+ (/.) x y = x <++> y <+-> [BCDiv]
+
+instance boolExpr ByteCode where
+ (&.) x y = x <++> y <+-> [BCAnd]
+ (|.) x y = x <++> y <+-> [BCOr]
+ Not x = x <+-> [BCNot]
+ (==.) x y = x <++> y <+-> [BCEq]
+ (!=.) x y = x <++> y <+-> [BCNeq]
+ (<.) x y = x <++> y <+-> [ BCLes]
+ (>.) x y = x <++> y <+-> [BCGre]
+ (<=.) x y = x <++> y <+-> [BCLeq]
+ (>=.) x y = x <++> y <+-> [BCGeq]
+
+instance analogIO ByteCode where
+ analogRead p = BC [BCAnalogRead $ toCode p]
+ analogWrite p b = b <+-> [BCAnalogWrite $ toCode p]
+
+instance digitalIO ByteCode where
+ digitalRead p = BC [BCDigitalRead $ toCode p]
+ digitalWrite p b = b <+-> [BCDigitalWrite $ toCode p]
+
+instance If ByteCode Stmt Stmt Stmt where If b t e = BCIfStmt b t e
+instance If ByteCode Stmt e Stmt where If b t e = BCIfStmt b t e
+instance If ByteCode Stmt Stmt e where If b t e = BCIfStmt b t e
+instance If ByteCode x y Expr where If b t e = BCIfStmt b t e
+instance IF ByteCode where
+ IF b t e = BCIfStmt b t e
+ (?) b t = BCIfStmt b t $ BC []
+BCIfStmt b t e = b <+-> [BCJmpF $ length <$> t + 1] <++> t
+ <+-> [BCJmp $ length <$> e] <++> e
+
+instance noOp ByteCode where noOp = BC []