d:" "\(*0:"day01")^","

t: (1 0;0 1;-1 0;0 -1)@4!+\-1+2*"R"=d[;0]
l: "i"$1_'d
+/{%x*x}+/t*l			/ 146

fd:{x@*&{1<#x}'.=x}
+/{%x*x}fd@+\t@&l		/ 131

\\