Evaluated proc skip {} {set ok [playnext]; groove skip; . $ok}