Move tasks to the top of their containing task or project in OmniFocus

Move to Top.applescript

tell application "OmniFocus"
	tell default document's first document window's content
		set _tasks to (selected trees where its value's class is task)'s value
		set _tasks to _tasks's reverse
		repeat with _task in _tasks
			tell _task's parent task
				move _task to beginning of tasks
			end tell
		end repeat
	end tell
end tell