(achieve
  :receiver hio 
  :ontology OPlan 
  :language CDL
  :content
    (capability
      :state-language fopl
      :input ((InjuredPerson ?person))
      :input-constraints (
        (elt ?person Person)
        (Is ?person Injured)
        (Has Location ?person MyIsland))
      :output-constraints (
        (not (Is ?person Injured)))
      :io-constraints (
        (implies (Is Injury Severe) (Has Location ?person Hospital)))))
