describeList xs = "The list is " ++ case xs of [] -> "empty."
[x] -> "a singleton list."
xs -> "a longer list."
main
= print $ describeList
[1,2,3,4]
ZGVzY3JpYmVMaXN0IDo6IFthXSAtPiBTdHJpbmcKZGVzY3JpYmVMaXN0IHhzID0gIlRoZSBsaXN0IGlzICIgKysgY2FzZSB4cyBvZiBbXSAtPiAiZW1wdHkuIgogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIFt4XSAtPiAiYSBzaW5nbGV0b24gbGlzdC4iCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgeHMgLT4gImEgbG9uZ2VyIGxpc3QuIgoKbWFpbiA9IHByaW50ICQgZGVzY3JpYmVMaXN0IFsxLDIsMyw0XQ==