 {Transform} = require 'stream'
+
+
 
 class ParseSExpr extends Transform
 

  # (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


    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
