$_=<>;$s.=a while/$s/;print$s,$/