; OM File Header - Saved 2019/12/03 20:39:10 ; (6.15 :patc (om-make-point 24 24) (om-make-point 35 23) (om-make-point 1602 957) "" 183 0 nil "2019/10/25 17:24:18") ; End File Header (in-package :om)(load-lib-for (quote nil))(setf *om-current-persistent* (om-load-patch1 "loop cookboock" (quote ((let ((box (om-load-boxcall (quote abstraction) "let1" (om-load-lisp-abspatch "let1" 6.15 ";;; Edit a valid LAMBDA EXPRESSION for \"let1\"$;;; e.g. (lambda (arg1 arg2 ...) ( ... ))$$(lambda (ccc) (let ((s ccc))$ (loop for i from 0 below (length s)$ for ch = (char s i)$ when (find ch \"0123456789\" :test #'eql)$ return ch) ))") (quote ((om-load-inputfun (quote input-funbox) "" "CCC" "al2 re43"))) (om-make-point 42 263) nil (list #\2) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list 2" (quote list) (quote nil) (om-make-point 1329 60) (om-make-point 154 30) (list (list 1 2 3) (list 1 2 4) (list 1 2 5)) "((1 2 3) (1 2 4) (1 2 5))" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "TEXT-BOX" (quote text-box) (quote ((om-load-inputfun (quote input-funbox) "dialog-item text (string)" "text" "untitled"))) (om-make-point 1144 578) (om-make-point 202 40) (om-make-dialog-item (quote text-box) (om-make-point 1 1) (om-make-point 174 20) "(8 7 3 2 1 0 4 5 6)" :font (om-make-font "Verdana" 11.0D0 :family "Verdana" :style (quote (:plain)) :mode (quote nil))) nil nil (pairlis (quote (winpos winsize)) (list (om-make-point 10 40) (om-make-point 335 275))) nil nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 5" (quote t) (quote nil) (om-make-point 1128 456) (om-make-point 128 30) (list 1 2 6 7 8 9 5 4 3) "(1 2 6 7 8 9 5 4 3 )" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "POSN-ORDER" (quote posn-order) (quote ((om-load-inputfun (quote input-funbox) "a list" "LIST" nil) (om-load-inputfun (quote input-funbox) "test function" "TEST" (quote >)))) (om-make-point 1168 496) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "TEXT-BOX" (quote text-box) (quote ((om-load-inputfun (quote input-funbox) "dialog-item text (string)" "text" "untitled"))) (om-make-point 893 578) (om-make-point 202 40) (om-make-dialog-item (quote text-box) (om-make-point 1 1) (om-make-point 174 20) "(8 7 6 5 4 3 2 1 0)" :font (om-make-font "Verdana" 11.0D0 :family "Verdana" :style (quote (:plain)) :mode (quote nil))) nil nil (pairlis (quote (winpos winsize)) (list (om-make-point 10 40) (om-make-point 335 275))) nil nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 5" (quote t) (quote nil) (om-make-point 877 456) (om-make-point 128 30) (list 1 2 3 4 5 6 7 8 9) "(1 2 3 4 5 6 7 8 9 )" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "POSN-ORDER" (quote posn-order) (quote ((om-load-inputfun (quote input-funbox) "a list" "LIST" nil) (om-load-inputfun (quote input-funbox) "test function" "TEST" (quote >)))) (om-make-point 917 496) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "TEXT-BOX" (quote text-box) (quote ((om-load-inputfun (quote input-funbox) "dialog-item text (string)" "text" "untitled"))) (om-make-point 953 363) (om-make-point 118 40) (om-make-dialog-item (quote text-box) (om-make-point 1 1) (om-make-point 90 20) "(6 4 2)" :font (om-make-font "Verdana" 11.0D0 :family "Verdana" :style (quote (:plain)) :mode (quote nil))) nil nil (pairlis (quote (winpos winsize)) (list (om-make-point 10 40) (om-make-point 335 275))) nil nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "X-INTERSECT" (quote x-intersect) (quote ((om-load-inputfun (quote input-funbox) "a list" "L1?" nil) (om-load-inputfun (quote input-funbox) "a list" "L2?" nil))) (om-make-point 1000 282) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "TEXT-BOX" (quote text-box) (quote ((om-load-inputfun (quote input-funbox) "dialog-item text (string)" "text" "untitled"))) (om-make-point 1084 363) (om-make-point 118 40) (om-make-dialog-item (quote text-box) (om-make-point 1 1) (om-make-point 90 20) "nil" :font (om-make-font "Verdana" 11.0D0 :family "Verdana" :style (quote (:plain)) :mode (quote nil))) nil nil (pairlis (quote (winpos winsize)) (list (om-make-point 10 40) (om-make-point 335 275))) nil nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "X-DIFF" (quote x-diff) (quote ((om-load-inputfun (quote input-funbox) "a list" "L1?" nil) (om-load-inputfun (quote input-funbox) "a list" "L2?" nil))) (om-make-point 1108 279) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list" (quote list) (quote nil) (om-make-point 1033 228) (om-make-point 49 30) (list 2 4 6) "(2 4 6)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 5" (quote t) (quote nil) (om-make-point 883 229) (om-make-point 128 30) (list 1 2 3 4 5 6 7 8 9) "(1 2 3 4 5 6 7 8 9 )" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "TEXT-BOX" (quote text-box) (quote ((om-load-inputfun (quote input-funbox) "dialog-item text (string)" "text" "untitled"))) (om-make-point 940 160) (om-make-point 118 40) (om-make-dialog-item (quote text-box) (om-make-point 1 1) (om-make-point 90 20) "(2 4 6)" :font (om-make-font "Verdana" 11.0D0 :family "Verdana" :style (quote (:plain)) :mode (quote nil))) nil nil (pairlis (quote (winpos winsize)) (list (om-make-point 10 40) (om-make-point 335 275))) nil nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "TEXT-BOX" (quote text-box) (quote ((om-load-inputfun (quote input-funbox) "dialog-item text (string)" "text" "untitled"))) (om-make-point 1060 160) (om-make-point 118 40) (om-make-dialog-item (quote text-box) (om-make-point 1 1) (om-make-point 90 20) "(1 3 5 7 8 9)" :font (om-make-font "Verdana" 11.0D0 :family "Verdana" :style (quote (:plain)) :mode (quote nil))) nil nil (pairlis (quote (winpos winsize)) (list (om-make-point 10 40) (om-make-point 335 275))) nil nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "X-DIFF" (quote x-diff) (quote ((om-load-inputfun (quote input-funbox) "a list" "L1?" nil) (om-load-inputfun (quote input-funbox) "a list" "L2?" nil))) (om-make-point 1084 76) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "INCLUDED?" (quote included?) (quote ((om-load-inputfun (quote input-funbox) "a list" "LST1" nil) (om-load-inputfun (quote input-funbox) "a list" "LST2" nil))) (om-make-point 913 79) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "X-INTERSECT" (quote x-intersect) (quote ((om-load-inputfun (quote input-funbox) "a list" "L1?" nil) (om-load-inputfun (quote input-funbox) "a list" "L2?" nil))) (om-make-point 987 79) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list" (quote list) (quote nil) (om-make-point 1009 25) (om-make-point 49 30) (list 2 4 6) "(2 4 6)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 5" (quote t) (quote nil) (om-make-point 859 26) (om-make-point 128 30) (list 1 2 3 4 5 6 7 8 9) "(1 2 3 4 5 6 7 8 9 )" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 9" (quote t) (quote nil) (om-make-point 790 807) (om-make-point 48 30) (list 2 3) "(2 3)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "SEARCH" (quote search) (quote ((om-load-inputfun (quote input-funbox) "SEQUENCE1" "SEQUENCE1" nil) (om-load-inputfun (quote input-funbox) "SEQUENCE2" "SEQUENCE2" nil))) (om-make-point 726 865) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 8" (quote t) (quote nil) (om-make-point 729 665) (om-make-point 48 30) (list 2 4) "(2 4)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 7" (quote t) (quote nil) (om-make-point 607 783) (om-make-point 27 30) 4 "4" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 5" (quote t) (quote nil) (om-make-point 652 768) (om-make-point 128 30) (list 1 2 3 4 5 6 7 8 9) "(1 2 3 4 5 6 7 8 9 )" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "FIND 2" (quote find) (quote ((om-load-inputfun (quote input-funbox) "ITEM" "ITEM" nil) (om-load-inputfun (quote input-funbox) "SEQUENCE" "SEQUENCE" nil))) (om-make-point 635 816) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "FIND" (quote find) (quote ((om-load-inputfun (quote input-funbox) "ITEM" "ITEM" nil) (om-load-inputfun (quote input-funbox) "SEQUENCE" "SEQUENCE" nil))) (om-make-point 666 686) nil nil "l" nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "MAPCAR" (quote mapcar) (quote ((om-load-inputfun (quote input-funbox) "FUNCTION" "FUNCTION" (quote find)) (om-load-inputfun (quote input-funbox) "LIST" "LIST" nil) (om-load-inputfun (quote input-funbox) "add-input" "add-input" 2))) (om-make-point 731 726) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 5" (quote t) (quote nil) (om-make-point 729 630) (om-make-point 128 30) (list 1 2 3 4 5 6 7 8 9) "(1 2 3 4 5 6 7 8 9 )" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "COPY-SEQ" (quote copy-seq) (quote ((om-load-inputfun (quote input-funbox) "SEQUENCE" "SEQUENCE" nil))) (om-make-point 684 539) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 6" (quote t) (quote nil) (om-make-point 631 478) (om-make-point 27 30) 3 "3" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 5" (quote t) (quote nil) (om-make-point 481 471) (om-make-point 128 30) (list 1 2 3 4 5 6 7 8 9) "(1 2 3 4 5 6 7 8 9 )" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "SUBSEQ" (quote subseq) (quote ((om-load-inputfun (quote input-funbox) "SEQUENCE" "SEQUENCE" nil) (om-load-inputfun (quote input-funbox) "START" "START" nil))) (om-make-point 572 516) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "TEXT-BOX" (quote text-box) (quote ((om-load-inputfun (quote input-funbox) "dialog-item text (string)" "text" "untitled"))) (om-make-point 339 664) (om-make-point 284 40) (om-make-dialog-item (quote text-box) (om-make-point 1 1) (om-make-point 256 20) "((1 2 3 4 5) (2 3 4 5) (3 4 5) (4 5) (5))" :font (om-make-font "Verdana" 11.0D0 :family "Verdana" :style (quote (:plain)) :mode (quote nil))) nil nil (pairlis (quote (winpos winsize)) (list (om-make-point 10 40) (om-make-point 335 275))) nil nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "TEXT-BOX" (quote text-box) (quote ((om-load-inputfun (quote input-funbox) "dialog-item text (string)" "text" "untitled"))) (om-make-point 45 663) (om-make-point 284 40) (om-make-dialog-item (quote text-box) (om-make-point 1 1) (om-make-point 256 20) "((1 2 3 4 5) (2 3 4 5) (3 4 5) (4 5) (5))" :font (om-make-font "Verdana" 11.0D0 :family "Verdana" :style (quote (:plain)) :mode (quote nil))) nil nil (pairlis (quote (winpos winsize)) (list (om-make-point 10 40) (om-make-point 335 275))) nil nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "MAPCON" (quote mapcon) (quote ((om-load-inputfun (quote input-funbox) "FUNCTION" "FUNCTION" (quote list)) (om-load-inputfun (quote input-funbox) "LIST" "LIST" (list 1 2 3 4 5)))) (om-make-point 89 591) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "loop cond1" (om-load-lisp-abspatch "loop cond1" 6.15 ";;; Edit a valid LAMBDA EXPRESSION for \"cond1\"$;;; e.g. (lambda (arg1 arg2 ...) ( ... ))$$(lambda () (loop repeat 10$ for x = (random 100)$ if (evenp x)$ collect x into evens$ else$ collect x into odds$ finally (return (values evens odds))))") (quote nil) (om-make-point 540 325) nil (list (list 44 76 12 60 86) (list 85 27 91 83 23)) nil "loop cond1"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "scan sublist" (om-load-lisp-abspatch "scan sublist" 6.15 ";;; Edit a valid LAMBDA EXPRESSION for \"scan sublist\"$;;; e.g. (lambda (arg1 arg2 ...) ( ... ))$$(lambda () (collect$ (mapping ((x (scan-range :from 1 :upto 3)))$ (collect (scan-range :from 1 :upto x)))))") (quote nil) (om-make-point 101 420) nil nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "loop repeat" (om-load-lisp-abspatch "loop repeat" 6.15 ";;; Edit a valid LAMBDA EXPRESSION for \"loop repeat\"$;;; e.g. (lambda (arg1 arg2 ...) ( ... ))$$(lambda (x) (loop repeat x collect (random x)))") (quote ((om-load-inputfun (quote input-funbox) "" "X" 10))) (om-make-point 341 82) nil (list (list 7 9 4 5 6 4 6 2 1 0)) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "TEXT-BOX" (quote text-box) (quote ((om-load-inputfun (quote input-funbox) "dialog-item text (string)" "text" "untitled"))) (om-make-point 309 361) (om-make-point 169 40) (om-make-dialog-item (quote text-box) (om-make-point 1 1) (om-make-point 141 20) "((1 x) (2 y) (3 z))" :font (om-make-font "Verdana" 11.0D0 :family "Verdana" :style (quote (:plain)) :mode (quote nil))) nil nil (pairlis (quote (winpos winsize)) (list (om-make-point 10 40) (om-make-point 335 275))) nil nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 4" (quote t) (quote nil) (om-make-point 339 233) (om-make-point 119 30) (list (list (quote x) 1) (list (quote y) 2) (list (quote z) 3)) "((x 1) (y 2) (z 3))" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "ab -> ba" (om-load-lisp-abspatch "ab -> ba" 6.15 ";;; Edit a valid LAMBDA EXPRESSION for \"lispfunction\"$;;; e.g. (lambda (arg1 arg2 ...) ( ... ))$$(lambda (lst) (loop for (a b) in lst$ collect (list b a) ))") (quote ((om-load-inputfun (quote input-funbox) "" "LST" nil))) (om-make-point 307 263) nil (list (list (list 1 (quote x)) (list 2 (quote y)) (list 3 (quote z)))) nil "ab -> ba"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 210 251) (om-make-point 27 30) 3 "3" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 136 213) (om-make-point 98 30) "1a2b3c4d5e" "\"1a2b3c4d5e\"" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "CHAR" (quote char) (quote ((om-load-inputfun (quote input-funbox) "STRING" "STRING" (list 1 2 3 4 5)) (om-load-inputfun (quote input-funbox) "INDEX" "INDEX" nil))) (om-make-point 192 281) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "let1" (om-load-lisp-abspatch "let1" 6.15 ";;; Edit a valid LAMBDA EXPRESSION for \"let1\"$;;; e.g. (lambda (arg1 arg2 ...) ( ... ))$$(lambda () (let ((s \"alpha45\"))$ (loop for i from 0 below (length s)$ for ch = (char s i)$ when (find ch \"0123456789\" :test #'eql)$ return ch) ))") (quote nil) (om-make-point 99 259) nil (list #\4) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "2 loops" (om-load-lisp-abspatch "2 loops" 6.15 ";;; Edit a valid LAMBDA EXPRESSION for \"2 loops\"$;;; e.g. (lambda (arg1 arg2 ...) ( ... ))$$(lambda (e1) (loop for x from 1 to e1$ collect (loop for y from x to e1 $ collect y) ))") (quote ((om-load-inputfun (quote input-funbox) "" "E1" 5))) (om-make-point 344 569) nil (list (list (list 1 2 3 4 5) (list 2 3 4 5) (list 3 4 5) (list 4 5) (list 5))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "2 loops" (om-load-lisp-abspatch "2 loops" 6.15 ";;; Edit a valid LAMBDA EXPRESSION for \"2 loops\"$;;; e.g. (lambda (arg1 arg2 ...) ( ... ))$$(lambda (e1) (loop for x from 1 to e1$ collect (loop for y from 1 to x $ collect y) ))") (quote ((om-load-inputfun (quote input-funbox) "" "E1" 5))) (om-make-point 154 78) nil (list (list (list 1) (list 1 2) (list 1 2 3) (list 1 2 3 4) (list 1 2 3 4 5))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "2 loops" (om-load-lisp-abspatch "2 loops" 6.15 ";;; Edit a valid LAMBDA EXPRESSION for \"2 loops\"$;;; e.g. (lambda (arg1 arg2 ...) ( ... ))$$(lambda () (loop for x from 1 to 10$ collect (loop for y from 1 to x $ collect y) ))") (quote nil) (om-make-point 91 79) nil (list (list (list 1) (list 1 2) (list 1 2 3) (list 1 2 3 4) (list 1 2 3 4 5) (list 1 2 3 4 5 6) (list 1 2 3 4 5 6 7) (list 1 2 3 4 5 6 7 8) (list 1 2 3 4 5 6 7 8 9) (list 1 2 3 4 5 6 7 8 9 10))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "lopp 2 var" (om-load-lisp-abspatch "lopp 2 var" 6.15 ";;; Edit a valid LAMBDA EXPRESSION for \"lopp 2 var\"$;;; e.g. (lambda (arg1 arg2 ...) ( ... ))$$(lambda (lst) (loop for x in lst$ for y from 1$ when (> y 3)$ collect x))$$ ))$ $;A, B, C, D, E)$$#|$* (loop for x in '(a b c d e)$ for y from 1$$ when (> y 1)$ do (format t \", \")$$ do (format t \"~A\" x)$ )$ $A, B, C, D, E$NIL$|#") (quote ((om-load-inputfun (quote input-funbox) "" "LST" nil))) (om-make-point 593 83) nil (list (list 4 5)) nil "lopp 2 var"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 621 53) (om-make-point 80 30) (list 1 2 3 4 5) "(1 2 3 4 5)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((4 0 2 0 nil 0) (3 0 4 0 nil 0) (7 0 5 0 nil 0) (6 0 7 0 nil 0) (9 0 8 0 nil 0) (12 0 9 0 nil 0) (13 0 9 1 nil 0) (11 0 10 0 nil 0) (12 0 11 0 nil 0) (13 0 11 1 nil 0) (18 0 14 0 nil 0) (16 0 15 0 nil 0) (20 0 16 0 nil 0) (19 0 16 1 nil 0) (20 0 17 0 nil 0) (19 0 17 1 nil 0) (20 0 18 0 nil 0) (19 0 18 1 nil 0) (21 0 22 0 nil 0) (25 0 22 1 nil 0) (24 0 26 0 nil 0) (25 0 26 1 nil 0) (27 0 28 0 nil 0) (23 0 28 1 nil 0) (29 0 28 2 nil 0) (32 0 30 0 nil 0) (32 0 33 0 nil 0) (31 0 33 1 nil 0) (47 0 34 0 nil 0) (36 0 35 0 nil 0) (42 0 40 0 nil 0) (41 0 42 0 nil 0) (44 0 45 0 nil 0) (43 0 45 1 nil 0) (51 0 50 0 nil 0))) nil 6.15))