/say 3,1{6@3}3,1{6@3}3,1{6@3}3,1{6@3}3,1{6@3}3,1{6@3}3,1{6@3}3,1{6@3}3,1{6@3}3,1{6@3}3,1{6@3}3,1{6@3}
/say 3,1 $ddrain(2, $ddn(14) ) 
/say 4,1@9}-;-'-4 $+ $ddn(10,m,1,*,3) $ddn(10,m,1,*,2)  $ddn(10,m,1,*,2)  $ddn(10,m,1,*,3) $+ 9-'-;-{4@
/say 4,1@9}-;-'-4 $+ $ddn(10,m,1,*,4)  $ddn(10,m,1,*,1)  $ddn(10,m,1,*,4) $+ 9-'-;-{4@
/say 4,1@9}-;-'-;-4 $+ $ddn(10,m,1,*,5) 13{~12.13_12.13~}4 $ddn(10,m,1,*,5) $+ 9-;-'-;-{4@
/say 4,1@9}-;-'-4 $+ $ddn(10,m,1,*,6) 13(Y)4 $+ $ddn(10,m,1,*,6) $+ 9-'-;-{4@
/say 4,1@9}-;-;-4 $+ $ddn(10,m,1,*,7) 13()7~8*7~13()4 $ddn(10,m,1,*,7) $+ 9-;-;-{4@
/say 4,1@9}-;--4 $+ $ddn(10,m,1,*,8) 13(_)-(_)4 $+ $ddn(10,m,1,*,8) $+ 9--;-{4@
/say 4,1@9}-;-4 $+ $ddn(10,m,1,*,9)  $ddn(10,m,1,*,9) $+ 9-;-{4@
/say 4,1@9}-;-4 $+ $ddn(10,m,1,*,10) $+ 9-;-{4@
/say 3,1{6@3}3,1{6@3}3,1{6@3}3,1{6@3}3,1{6@3}3,1{6@3}3,1{6@3}3,1{6@3}3,1{6@3}3,1{6@3}3,1{6@3}3,1{6@3}
