 
     return [token, rest]
 
+# {ListSource, Log} = require './util'
+# command = "(agda2-give-action 0 'no-paren)"
+# new ListSource [command]
+#   .pipe new ParseSExpr
+#   .pipe new Log
+
 module.exports = ParseSExpr

  # (a b "c" '(d r)) => [a, b, "c", [d, r]]
  takeList: (string) ->
    tokens = []

    # drop "("
    string = @tail string

    while (string[0] isnt ')')
      switch @head string
        when ' '
          string = @tail string

{Transform} = require 'stream'



class ParseSExpr extends Transform

