implementation module mTaskInterpret

import iTasks
import gdynamic, gCons, GenEq, StdMisc, StdArray
import GenPrint
import mTask


toByteVal :: BC -> String
toByteVal a = undef

derive gPrint BC

toReadableByteVal :: BC -> String
toReadableByteVal a = printToString a

instance arith ByteCode where
  lit _ = undef
  (+.) _ _ = undef
  (-.) _ _ = undef
  (*.) _ _ = undef
  (/.) _ _ = undef

instance serial ByteCode where
  serialAvailable = undef
  serialPrint _ = undef
  serialPrintln _ = undef
  serialRead = undef
  serialParseInt = undef

Start :: Main (ByteCode Int Expr)
Start = {main=serialPrint (lit 36)}