main = do
        print (valid '9')
        print (valid 'a')
        print (index ([1,2,3,4,5], 4))
        print (index ([1,2,3,4,5], 9))
        print (char2nr '9')
        print (reverse_list "Hello, World")
        print (int_parse "1234")
        print (fraction_parse "1234")
        print (take_until ("13.14159", '.'))
        print (drop_while ("13.14159", '.'))
        print (string2num "3.1415926" )
        print (string2num "$2,345,678.222" )
main = do
        print (valid '9')
        print (valid 'a')
        print (index ([1,2,3,4,5], 4))
        print (index ([1,2,3,4,5], 9))
        print (char2nr '9')
        print (reverse_list "Hello, World")
        print (int_parse "1234")
        print (fraction_parse "1234")
        print (take_until ("13.14159", '.'))
        print (drop_while ("13.14159", '.'))
        print (string2num "3.1415926" )
        print (string2num "$2,345,678.222" )
main = do
        print (valid '9')
        print (valid 'a')
        print (index ([1,2,3,4,5], 4))
        print (index ([1,2,3,4,5], 9))
        print (char2nr '9')
        print (reverse_list "Hello, World")
        print (int_parse "1234")
        print (fraction_parse "1234")
        print (take_until ("13.14159", '.'))
        print (drop_while ("13.14159", '.'))
        print (string2num "3.1415926" )
        print (string2num "$2,345,678.222" )