show_:{[t] / show table i:*|^t[] / count j:@[t;_n;(1|i)#] / empty f:{:[4:x;x;1_,/" ",x]} / nested k:f''+$+j[] / data l:+,$!j / labels m:1 -1@-4=4::'t[] / data justifications n:(|/#:')'l,'k / widths l:" ",''(-n)$l / padded labels k:" ",''(m*n)$k / padded data o:+," ",'n#'"-" / separators p:,'/l,'o,'k / result p} / matrix show:{`0:,," ";`0:1!(,,"\n"),show_ x}