gsub(/./){$*[_=48+$.+K-=1]="%#{K-$.<<1}s"%$*[_]+$&}while gets&&K=2
puts$*-[p]