USING: formatting io kernel locals math math.functions math.parser ; IN: fakt :: fakt ( n -- n ) 5 :> d 0 :> s n d >= [ s n d 5 / + + :> s d 5 * :> d ] when s "%d" print ; readln string>number fakt
24
%d Quotation's stack effect does not match call site quot [ readln string>number fakt ] call-site (( -- ))