incr-set prlevel 1
if #0=2 START
incr-set prlevel -1
;;; Usage:
;;; 	<pd f k
;;;
;;; If f is a computation (resolution), then k is its length
;;;
incr-set prlevel 1
jump END
;;; Parameters: f computation (resolution)
;;;
;;; Output values: k non-negative integer
;;;
;;; Caveats:
;;;
; created 7/15/92 m^2
START:
int @i 1
LOOP: ncols #1.@i @c
      if @c=0 CLEAN
	int @i @i+1
	jump LOOP
CLEAN: int #2 @i-1
	kill @i
END:
incr-set prlevel -1

$;;;;;;;; EXAMPLE SECTION ;;;;;;;;;;;;;;;;;;;;;;;;;
