Implement `stringToMessage`

tp/rsa/main.hs

@@ -0,0 +1,8 @@
+-- RSA LAB
+
+import Data.Char
+
+type Message = [Int]
+
+stringToMessage::String -> Message
+stringToMessage = map ord