perl -e'print(($_^$_>>1).$/)for(0..pop)' 15 12345678901234567890123456789012345