perl -le'map{$_=$b.$a|"~",$b=$a,$a=$_,print}1..pop' 10