Результат работы ghci -W над моей программой.

[thesz]

Scheme.hs:566:24:
Warning: Pattern match(es) are non-exhaustive
In the definition of `sums':
Patterns not matched:
_ [] _ _ _ _
_ (_ : (_ : _)) [] _ _ _
_ (_ : (_ : _)) (_ : _) [] _ _
_ [_] [] _ _ _
...

Ascii art!

А еще спрашивают, могут ли машины творить. ;)