tell application id "OGfl"
	tell front document
		repeat with oCanvas in canvases
			repeat with oUnsharedLayer in (layers of oCanvas where class is not shared layer) as list
				-- harvest from unshared layers of each Canvas
			end repeat
		end repeat
		
		tell front canvas
			repeat with oSharedLayer in (layers where class is shared layer) as list
				-- harvest each shared layer from just one of the canvases which parent it
				
			end repeat
		end tell
	end tell
end tell