say 'start x' interpret x('say i1') interpret "interpret x('say i3')" exit x: procedure return arg(1)