Ruby function to find the first TaskPaper project matching a title fragment

todo.rb

def first_matching_project(fragment)
     %x{osascript <<'APPLESCRIPT'
      tell application "TaskPaper"
        tell front document
      	  set projectlist to name of projects
      	  set frag to "#{fragment}"
      	  repeat with aproject in projectlist
      		  if (offset of "#{fragment}" in aproject) > 0 then return (aproject as string)
      	  end repeat
      	  return "Inbox"
        end tell
      end tell
APPLESCRIPT}.strip
  end