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