parse :: ByteString -> [ByteString]
parse = map lowercase . concat . flip (=~) ("[a-zA-Z]+" :: ByteString)
parse :: ByteString -> [ByteString]
parse = map lowercase . concat . flip (=~) ("[a-zA-Z]+" :: ByteString)
parse = map lowercase . concat . flip (=~) ("[a-zA-Z]+" :: ByteString)