perl -le '$"=$,,@_=(1)x4,@a=(0,4,5,4),map{$_<<=6,$_+=13}@_;for(0..
3){$_[$_]+=1<<$a[$_]if$_;$_[$_]+=$a[$_]}$_[3]+=10,print map chr,@_'