import Data.List (partition)

coprime :: Int -> Int -> Bool
coprime a b = 1 == gcd a b

--coprime' :: Int -> Int -> Bool
--coprime' = (== 1) . gcd

main :: IO ()
main = do
  putStrLn $ show $ coprime 25 8
  --putStrLn $ show $ coprime' 25 8