: _HEADER
." "
cr
;
: ." " cr ;
: ." " cr ;
:
." " cr ;
: ." " cr ;
: ." " ;
: ." " cr ;
: ." " cr ;
: ." " cr ;
: ."
" cr ;
:
." " cr ;
:
."
" cr ;
: ." " ;
:
."
" cr ;
\ ============================
: quad
11 1 DO
I DUP * .
LOOP
;
: fak recursive ( n-n)
DUP 1 >
IF \ n > 1
DUP 1 - FAK * DUP >r \ n * fak n-1
ELSE \ else
DROP 1 DUP >r \ 1
ENDIF \ end
r> .
;
\ ============================
_HEADER
." CGI Programm in FORTH"
." Quadrate von 1 - 10 "
quad
." Faktorielle von 6 "
6 fak cr
bye