$_=<>;printf"@b%$=s
"while$b[$==y///c]=chop