( scratchpad ) IN: foo ( foo ) [ "add2" "foo" create [ 2 + ] (( n -- n )) define-declared ] with-compilation-unit ( foo ) 3 add2 . 5