2to:1+((C:=Set evaluate:'#(',stdin upToEnd,')')at:1)do:[:y|1to:(X:=C at:2)do:[:x|Z:=$
.x=X or:[Z:=$ ].stdout<<(x+y\\2)<<Z]]