Epic Buttcoin fail

Buttcoin got forked because 0.7 and 0.8 are incompatible. Remember the fags who said Bitcoin wasn't shit? You fags sure got told.

>>18

:m +Data.List
:m +Data.Char
let deanagram = sort . filter isAlpha . map toLower
let isAnagram a b = deanagram a == deanagram b
let s = "Satoshi Nakamoto"
isAnagram "Satoshi Nakamoto" "A mason took a shit"
True
isAnagram "Satoshi Nakamoto" "Asshat took no aim"
True
isAnagram "Satoshi Nakamoto" "Soaks moot in a hat"
True
isAnagram "Satoshi Nakamoto" "Satan mistook a ho"
True
>


Checks out. Forgive me for not defining isAnagram in point-free style.