N88 (automaton) BASIC

ins = in '\s\t\r\n'
inc = in '()'
inw = _

automaton lisplex in out:
  @var cbuf
  @entry space:
    c <- in
    case c of
      ins => continue
      inc => exitto closure
      inw => exitto word
    enter:
      nop
    exit:
      nop
  closure:
    exitto space
    enter:
      cbuf <- EOF
    exit:
      out << cbuf
  word:
    c <- in
    case c of
      ins => exitto space
      inc => exitto closure
      inw => cbuf <- c, continue
    enter:
      cbuf <- EOF
    exit:
      out << cbuf

うん．ただのスパゲッティだ