print $^F.$|.$[.$^F; #the simpler way

#a more mathematical approach
print $^F**(++$_.$_)-$=+$^F**$^F**$^F-$^F;