Implement `makeBlocks`

tp/rsa/main.hs

@@ -47,3 +47,6 @@ ungroupBytes n = (mod n 256):ungroupBytes (div n 256)
 groupN::Int -> Message -> [Message]
 groupN _ [] = []
 groupN bsize s = (take bsize s):groupN bsize (drop bsize s)
+
+makeBlocks::Int -> Message -> Message
+makeBlocks bsize msg = map groupBytes (groupN bsize msg)