{
#####........#####
.#####......#####
..#####....#####
...#####..#####
....##########
.....########
......######
.....########
....##########
...#####..#####
..#####....#####
.#####......#####
#####........#####
XTF}
[^[$$32=\10=|][%^]#]a:           {skip cr's and spaces}
[$0\>~\9>~&]b:                  {"0"<=arg<="9"}
[0\'0-[$b;!][\10*+^'0-]#]c:      {read c, while "0"<=c<="9" do a=10*a+c-ord("0")}
[[$1_=~][$10=$[1ø,]?~[1ø[$0=~][1ø,1_+]#%]?%^]#]x:
a;!c;!%^x;!