contains :: Int -> Int -> Bool
contains 0 n = False
contains x n = if x `mod 10 == n then True else contains (x `div` 10) n