#!perl -pl61while($_){$n=$m=1;($n,$m)=($m,$n+$m)until$m>$_;$_-=$n;$\*=$n}}{
42
272
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!