toInt.hs added