sp {calculate-implicit-addressee*from-my-controller
( state <s> ^language-ops-allowed yes ^top-state <ts> ^operator <o1>)
  (<ts> ^superstate nil ^conversational-record <c1> ^private <p>)
  (<o1> ^name comp-d-move ^utt-unit <u1> ^d-move <d1>)
  (<u1> -^addressee <adde>
        ^content-type description-of
        ^object-type contact
        ^locutionary-act inform)
  (<c1> ^turn <t1>)
  (<t1> ^status acquired ^speaker <spkr> ^addressee <n1>)
  (<n1> ^name unknown )
  (<p> ^self <self> )
  (<d1> ^addressee <n1> )
#tacair
  (<ts> ^control.nl-call-sign <ccs> )
  (<spkr> ^name <ccs>)
-->
  ( write (crlf) | implicit addressee is me (from my controller)  | )
  (<t1> ^addressee <self> + <n1> - )
  (<u1> ^addressee <self> + )
  (<d1> ^addressee <self> + <n1> - )}



#check radio too?
sp {calculate-implicit-addressee*lead*tacair
( state <s> ^language-ops-allowed yes ^top-state <ts> ^operator <o1>)
  (<ts> ^superstate nil ^conversational-record <c1> ^private <p>)
  (<o1> ^name comp-d-move ^utt-unit <u1> ^d-move <d1>)
  (<u1> -^addressee <adde>
        ^content-type << achieved-racetrack fuel-needed >>
        ^locutionary-act inform)
  (<c1> ^turn <t1>)
  (<t1> ^status acquired ^speaker <spkr> ^addressee <n1>)
  (<n1> ^name unknown )
  (<p> ^self <self> )
  (<d1> ^addressee <n1> )
  
#tacair
  (<ts> ^command.group <group> )
  (<group> ^mission.member <mem>
            ^tactical.role lead
            ^type <type>)
   (<mem> ^nl-call-sign <mem-cs>)
   (<spkr> ^name <mem-cs>)
-->
  ( write (crlf) | implicit addressee is me (from my wing)  | )
  (<t1> ^addressee <self> + <n1> - )
  (<u1> ^addressee <self> + )
  (<d1> ^addressee <self> + <n1> - )}

sp {calculate-implicit-addressee*controller*tacair
( state <s> ^language-ops-allowed yes ^top-state <ts> ^operator <o1>)
  (<ts> ^superstate nil ^conversational-record <c1> ^private <p>)
  (<o1> ^name comp-d-move ^utt-unit <u1> ^d-move <d1>)
  (<u1> -^addressee <adde>
        ^content-type << no-description-of achieved-racetrack fuel-needed >>
        ^locutionary-act inform ^radio <radio> )
  (<c1> ^turn <t1>)
  (<t1> ^status acquired ^speaker <spkr> ^addressee <n1>)
  (<n1> ^name unknown )
  (<p> ^self <self> ^someone-that-i-know <stik>)
  (<d1> ^addressee <n1> )
  (<stik> ^name <mem-cs> ^radio <radio> )
  
#tacair
  (<ts> ^control.group <group> ^nl-call-sign <my-cs> )
  (<group> ^member <mem>  ^member <me>)
   (<mem> ^nl-call-sign <mem-cs>)
   (<spkr> ^name <mem-cs>)
# i am controller
   (<me> ^nl-call-sign <my-cs> ^controller *yes* )
-->
  ( write (crlf) | implicit addressee is me (in my group) | )
  (<t1> ^addressee <self> + <n1> - )
  (<u1> ^addressee <self> + )
  (<d1> ^addressee <self> + <n1> - )}