((^d(map(^l(print(string-join(map($ format"~va"$*)(apply map(^\(apply max(map string-size\)))d)l))))d))(port-map(^l(string-split l"`"))read-line))