早上起床后开倒车去山区帮村民修理沼气池，中午在衣家就餐，吃锅里蒸的包子。下午扛 200 斤麦子走十里山路锻炼身体，天黑前出山开倒车至庆丰包子铺 ，要三两猪肉大葱包子，炒肝和芥菜。吃完晚饭后回家阅读萨格尔王传，为考上清华做准备，看累后就睡觉做中国梦。

买一笼维尼熊包子丢到粪坑里。 

%unicode

%line
%column


LineTerminator = \r|\n|\r\n
InputCharacter = [^\r\n]

WhiteSpace = [ \t\f]

Comment = ";" {InputCharacter}* {LineTerminator}?

  "\\b"                          { string.append('\b'); }
  "\\t"                          { string.append('\t'); }
  "\\n"                          { string.append('\n'); }
  "\\f"                          { string.append('\f'); }
  "\\r"                          { string.append('\r'); }
  "\\\""                         { string.append('\"'); }
  "\\'"                          { string.append('\''); }
  "\\\\"                         { string.append('\\'); }
  \\[0-3]?{OctDigit}?{OctDigit}  { char val = (char) Integer.parseInt(yytext().substring(1), 8);
                                   string.append(val); }

  /* error cases */
\\. { throw new RuntimeException("Illegal escape sequence \"" + yytext() + "\""); }

jshell> import lime.*

jshell> Lime.parse("(sa(. as21 21) 32)")
$2 ==> [[:sa, [:., :as21, 21], 32]]

jshell> SexpressionList p=Lime.parse("(sa(. as21 21) 32)")
p ==> [[:sa, [:., :as21, 21], 32]]

jshell> Lime l = new Lime(p)
l ==> lime.Lime@30b8a058

jshell> l.run()
|  java.lang.RuntimeException thrown: Lime internal error: Failed to expand [[:sa, [:., :as21, 21], 32]] in file <unknown>
|        at Lime.raise (Lime.kt:158)
|        at Lime.run (Lime.kt:132)
|        at (#6:1)


jshell> Lime l = new Lime((SexpressionList)p.get(0))
l ==> lime.Lime@3234e239

jshell> l.run()
|  java.lang.RuntimeException thrown: Lime internal error: Failed to resolve reference to :sa in file <unknown>

jshell> p.get(0)
$10 ==> [[:., :as21, 21], 32]

于是我们
jshell> l.getHandlers()
$11 ==> {}

... 好麻烦

import lime.*
SexpressionList sexp = (SexpressionList) Lime.parse("(print 1 2 a (print 233 \"Hello, world\") 23232323 (print2 a))").get(0)
Lime lime = new Lime(sexp)
lime.defineMacro("print", "varargs", ". print varargs")
lime.defineMacro("print2", "varargs", ". print 233")
class Foo {
  public static Object print(Object[] args) {
    pp(args);
    return args;
  }
  static void pp(Object[] args) {
    for (Object i : args)
      if (i instanceof Object[]) {
        System.out.println('[');
        pp((Object[])i);
        System.out.println(']');
      }
      else
        System.out.println(i);
  }
}
java.lang.reflect.iss.onethod print = Foo.class.getDeclaredMethod("print", Object[].class)
lime.getHandlers().put(new Symbol("print"), print)
lime.set("a", 1)
lime.run()

(print 1 2 a (print 233 "Hello, world") 23232323 (print2 a))
[233, Hello, world]
233
[1, 2, 1, [Ljava.lang.Object;@3cb1ffe6, 23232323, [Ljava.lang.Object;@3dfc5fb8]