Bowling Score in PicoLisp

gistfile1.lisp

(de frame @
   (when (next)
      (link
         (make
            (if (= 10 (link (arg)))
               (apply link (head 2 (rest)))
               (when (= 10 (+ (arg) (link (next))))
                  (link (car (rest))) ) ) ) )
      (pass frame) ) )

(de score (Lst)
   (apply +
      (fish atom
         (head 10
            (make (apply frame Lst)) ) ) ) )

: (score (make (do 21 (link 1))))
(score (make (do 21 (link 1))))
-> 20
: (score (make (do 21 (link 5))))
(score (make (do 21 (link 5))))
-> 150
: (score (make (do 21 (link 10))))
(score (make (do 21 (link 10))))
-> 300