Implement `splitBlocks`

tp/rsa/main.hs

@@ -50,3 +50,6 @@ groupN bsize s = (take bsize s):groupN bsize (drop bsize s)
 
 makeBlocks::Int -> Message -> Message
 makeBlocks bsize msg = map groupBytes (groupN bsize msg)
+
+splitBlocks::Message -> Message
+splitBlocks msg = concat (map ungroupBytes msg)