Parsing.purs

module Test.Main where

import Debug.Trace
import Data.Char
import Data.String

parse [] = []
-- Error: unexpected "'"
parse ('h':cs) = cs
parse (c:cs) = c:c:cs

main = "hello world" # toCharArray # parse # fromCharArray # trace

Verbose.purs

module Test.Main where

import Debug.Trace
import Data.Char
import Data.String

parse [] = []
parse (c:cs) = c:c:cs

-- is there a simpler way of writing this?
main = trace (fromCharArray (parse (toCharArray "hello world")))