$p=1;print$p=/$p/?$`+$':$p,"\n"for<>