11 lines
199 B
Forth
11 lines
199 B
Forth
: ^ over swap 1 ?do over * loop nip ;
|
|
: detail
|
|
begin
|
|
cr ." stack: " .s
|
|
bl word count dup
|
|
0<> while
|
|
." , read: " 2dup type evaluate
|
|
repeat
|
|
2drop
|
|
;
|
|
detail 3 4 2 * 1 5 - 2 3 ^ ^ / +
|