load'plot'
r=.|.k=.>0{<;._2 d=.1!:1[3
w=.|:,;._2 d rplc a=.k;s;r;s=.#&' '#k
wd}.|:($w)$w rplc a