read044.hs:5:13: warning: [-Woverlapping-patterns (in -Wdefault)]
    Pattern match is redundant
    In a case alternative: False -> ...