import Tasks.Examples
+instance == BCValue where (==) a b = toByteCode a == toByteCode b
+
encode :: MTaskMSGSend -> String
encode (MTTask to data) = "t" +++ toByteCode to +++ to16bit (size data) +++ data +++ "\n"
encode (MTTaskDel i) = "d" +++ to16bit i +++ "\n"