score, showInput, showOutput :: Msg -> String
score m = show (msgId m) ++ "/" ++ show numChallenges
score, showInput, showOutput :: Msg -> String
score m = show (msgId m) ++ "/" ++ show numChallenges
score m = show (msgId m) ++ "/" ++ show numChallenges