Implement `groupN`

tp/rsa/main.hs

@@ -43,3 +43,7 @@ subgroupBytes pow acc (c:msg) = subgroupBytes (pow * 256) (acc + c * pow) msg
 ungroupBytes::Int -> Message
 ungroupBytes 0 = []
 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)