nからnnまでの3と4の公倍数を求めるだけのプログラム

koubaisu.hs

sumTo x = (read :: String -> Int) x
getInt = do m <- getLine ; return (sumTo m)
act n = do
 if (n`mod` 3 == 0) && (n`mod`4 == 0)
  then print n
  else return ()
cal i i2 keisan = do
 keisan i
 if i /= i2
  then cal (i+1) i2 keisan
  else return ()
main = do
 putStrLn "始めの数は？ : "
 i <- getInt
 putStrLn "最後の数は？ : "
 i2 <- getInt
 cal i i2 act