check :: [Integer] -> Integer -> Bool
check [x]    v = x == ((mod) v 10)
check (x:xs) v = check xs (v + (x ^ (v * 2)))

main :: IO ()
main = if (check [3, 1, 1, 3, 3, 0, 0, 2, 4, 0, 3, 9, 6] 3) == True
       then print "hello\n"
       else print "bye\n"