monad stuff

readFile = (handle, filename) ->
  fs.readFile filename, 'utf8', (err, data) ->
        handle(err,data)

monadStuff = (f) -> (andThen) -> (err, data) ->
    if err then (andThen err) else (andThen undefined, (f data))

processTraces = (processor, filepath) ->
  readFile(monadStuff(parse.manyTraces)(processor), filepath)