'\n' = MTEmpty
'm' = MTMessage x
'u' = MTPub (from16bit (x % (1,3))) (x % (3,5))
- _ = abort ("Didn't understand message: " +++ join " " [toString (toInt c)\\c<-: x] +++ "\n")
+ _ = MTMessage x//abort ("Didn't understand message: " +++ join " " [toString (toInt c)\\c<-: x] +++ "\n")
safePrint :== toString o toJSON