language: Icon (iconc 9.4.3)
date: 876 days 14 hours ago
link:
visibility: public 
1
2
3
4
5
6
7
8
9
10

procedure main ()
        every n := 1 to 4 do
                write (n, "! = ", Factorial ( n ) );
end
 
procedure Factorial ( k )
        result := 1;
        every result *:= ( 1 to k );
        return result;
end
Translating:
prog.icn:
  main
  Factorial
No errors
Linking: