myGCD :: Int -> Int -> Int


myGCD a 0 = abs a
myGCD a b = myGCD b (a `mod` b)

coprime :: Int -> Int -> Bool

coprime a b = myGCD a b == 1