define perform( action );
    lvars action;
    vars s;

    exec( action );
    chars_to_items( sentence() ) -> s;
    while s /= [] do
        popval(s);
        say( ['Finished last Pop command: l(isten) for more.'] );
        exec( "wait" );
    endwhile;
enddefine;