proc factorial fact { if {$fact <= 1} { return 1 }expr $fact * [factorial [expr $fact-1]] }
Standard input is empty
Standard output is empty
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!