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