(r;i):"\n"\'"\n\n"\1:"i/19"
i:.'i^\:"{xmas=}"
r:{x,y}/{(n;r):"{"\x^"}";(`$n)!,(({("xmas"?**x;.x@1;.2_x;`$y)}.":"\)'-1_s;`$*|s:","\r)}'r
+//i@&`A={(^`A`R?){(f;g):r@x;*f[&{x[1;y@*x;x@2]}[;y]'f;3],g}[;x]/`in}'i
g:{
 (f;g):r@*|x
 d:(0;*x){{g|:/@[x;*y;;y[2]+g:(>)~y@1]'(&;|)}[*|x;y]}\f
 +((*'d),,*|*|d;f[;3],g)}
+/*/'--/''*'{x[;1]=`A}#,/(,/g'{^`A`R?x[;1]}#)\,(4#,1 4001;`in)