Haskell, ввод, найти значение выражения

[d3f3nd3r]

Здравствуйте! Выполняю одну задачу:
Найти значение функции y= 4(x−3)^6 − 7(x−3)^3 + 2 при данном значении x.
Честно говоря, этим яп пользуюсь первый раз, уже что-то смог написать xD
main = do
putStrLn "Enter integer >> "
x <- getLine
let y = 4*(x-3)**6 - 7*(x-3)**3 + 2
print (y)
Этот код выдает ошибку из-за ввода, не получается скопировать текст ошибки.
Как мне изменить ввод с клавиатуры, чтобы программа начала нормально функционировать?
Если что, на других яп уже писал этот код, выводит при x=1 y =314, а при x=2 y=13
Буду очень благодарен