$_=<>;print$v="$&$v$&",$/while s/.$//