#!/usr/bin/env runhaskell
main = validate_check_digits "4910099710741"
validate_check_digits :: [Char] -> IO ()
validate_check_digits [] = return ()
validate_check_digits (x:(_:xs)) = putStrLn "Good bye."