import AffineCipher

-- |
-- >>> keySpace
-- 1254
keySpace = length [(keyA, keyB) | keyA <- [2 .. m], gcd keyA m == 1, keyB <- [1 .. m]]