Plaster

9> (defun-match ack ((0 @n) (+ n 1)) ((@m 0) (ack (- m 1) 1)) ((@m @n) (ack (- m 1) (ack m (- n 1))))) ack 10> (pprof (ack 3 8)) malloc bytes: 0 gc heap bytes: 557150864 total: 557150864 milliseconds: 10418 2045 11> (compile 'ack) #<vm fun: 2 param> 12> (pprof (ack 3 8)) malloc bytes: 0 gc heap bytes: 0 total: 0 milliseconds: 192 2045 13> (/ 10418 192) 54.2604166666667