Fix expMod by adding missing mod

tp/rsa/main.hs

@@ -76,7 +76,7 @@ expMod x k n =
 		then 1
 		else if even k
 			then expMod (mod ((mod x n) * (mod x n)) n) (div k 2) n
-			else (mod x n) * expMod ((mod x n) * (mod x n)) (div k 2) n
+			else (mod x n) * expMod (mod ((mod x n) * (mod x n)) n) (div k 2) n
 
 encrypt::Int -> Int -> Int -> String -> Message
 encrypt e n bsize smsg =