perl -le'print$_^$_>>1 for 0..pop' 15
     12345678901234567890123456789