: fac ( u -- u! ) 1 swap 1+ 1 u+do i * loop ;5 fac .7 fac . see fac
Standard input is empty
120 5040 : fac 1 swap 1+ 1 U+DO i * LOOP ;
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!