perl -E'say$_^$_>>1 for 0..pop' 15
     12345678901234567890123456