(format t"~@?~:*~V@{++~}+
~@*~@?""~V@{~:*~VT+
~}"(ash(read)-1)t)