PCOQEMHB3B6ZOWYYZBZITI5SZRNS7VUUEJ5AOLGYS6HI7SYUL6XAC
QFBKC7CUS2OHU4OG6WVGX7IYHWYOZLCW7KMQYQEITJZGFP5P2CCAC
57A7YJ6RIIMFT53NP6BY5FW4IS6YNDR3CSO2K7VPUOE55ESE5S5AC
(if (= x 0) (setf y (abs y)))
do (progn (incf p2 (turn state line)) (if (= 0 (slot-value state 'value)) (incf p1))))
do (progn
(incf p2 (turn state line))
(if (= 0 (slot-value state 'value))
(incf p1))))
do (if (/= 0 (array-dimension line 0)) (progn (incf p2 (turn state line)) (if (= 0 (slot-value state 'value)) (incf p1)))))
do (if (/= 0 (array-dimension line 0))
(progn
(incf p1)))))