content: mygcd :: Integer -> Integer -> Integer
  mygcd a 0 = a
  mygcd a b
     | a>=b = gcd b (mod a b)
     | otherwise = gcd b a
  
  mylcm :: Integer -> Integer -> Integer
  mylcm a b
      | a == b = a
      | otherwise = div (abs a*b) (mygcd a b)
  
  main :: IO()
  main = do
     putStrLn "Enter an integer: "
     number1 <- readLn :: IO Integer
     putStrLn "Enter an integer: "
     number2 <- readLn :: IO Integer 
     putStrLn $ "LCM  of " ++ show number1 ++ "&" ++show number2 ++ " is " ++ show (mylcm number1 number2)
  