’ Z„EFAC N;NI;ŒPP
[1]   © Calculate the exact integer factorial
[2]   © David Edwards <david@btdt.org> ~1983
[3]   ŒPP„¯3+NI„19
[4]   –(Nˆ18)/'…0,0½Z„•!N'
[5]   Z„ 6 4 0 2 3 7 3 7 0 5 7 2 8 0 0 0
[6]   LP:Z„(Ÿ\Z¬0)/Z„DIGIT1+šADD0 DIGIT1(²–,(•NI),[1.1]' ')°.×Z
[7]   …(N‰NI„NI+1)½LP
[8]   Z„(' '¬Z)/Z„•Z
    ’
    
    ’ Z„ADD0 M;ŒIO
[1]   ŒIO„0
[2]   Z„(¼1†½M)²((²¼¯1++/½M)¹¼1‡½M)\M
    ’
    
    ’ Z„DIGIT1 X
[1]   LP:…(10ˆ—/,X„Z„(0,10|X)+(˜X÷10),0)½LP
    ’
    
    ’ FAC N;TT
[1]   (•10*N-˜N),'E',•˜N„+/10µ¼N
    ’