(
define
( on-and-on text )
(
define
been-done
( string " has been done already" )
)
(
string-append
text
( on-and-on been-done )
)
)
(
display
(
on-and-on
( string "This" )
)
)
( cond ( ( under-the-sun? this ) ( error "doesn’t get here" ) ) )
2017 May 22
