showInput  m = "-> name:" ++ name m ++ ", id:"    ++ show (msgId m)
showInput  m = "-> name:" ++ name m ++ ", id:"    ++ show (msgId m)
showInput  m = "-> name:" ++ name m ++ ", id:"    ++ show (msgId m)