try
	set lstLines to paragraphs of (Unicode text of (the clipboard as record))
on error
	tell application id "sevs"
		activate
		display alert "No text lines in clipboard"
	end tell
	return
end try

set lngLines to length of lstLines
if lngLines < 1 then return

tell application id "OFOC"
	activate
	tell front document window of front document
		repeat with oPanel in {content, sidebar}
			set lstTrees to (selected trees of oPanel where class of its value ≠ item and class of its value ≠ folder and class of its value ≠ context)
			set lngTrees to count of lstTrees
			if lngTrees > 0 then exit repeat
		end repeat
		if lngTrees < 1 then return
		set oTree to first item of lstTrees
		set oParent to value of oTree
		tell oParent
			repeat with oLine in lstLines
				make new task with properties {name:oLine}
			end repeat
		end tell
	end tell
	
	tell oPanel to set expanded of oTree to true
end tell