@@ -6,3 +6,6 @@ type Message = [Int]
stringToMessage::String -> Message
stringToMessage = map ord
+
+messageToString::Message -> String
+messageToString = map chr