perl -e '$.++;print$}+=$.,$.+=$}while+1'