30_a_fce_0102_2000_12
Write the letter to your pen friend.
arc(r_0030_0001__Write, r_0030_0002__the_r_0030_0003__letter, arg1).
arc(r_0030_0001__Write, r_0030_0006__pen_r_0030_0007__friend, arg2).
arc(r_0030_0001__Write, z_000_30_a_fce_0102_2000_12_1, arg0).
arc(r_0030_0006__pen_r_0030_0007__friend, r_0030_0005__your, gen).
fof(formula,axiom,
? [R_30_1_WRITE,Z_30_A_FCE_102_2000_12_1,R_30_2_THE_LETTER,R_30_6_PEN_FRIEND,R_30_5_YOUR] :
( the_letter(R_30_2_THE_LETTER)
& your(R_30_5_YOUR)
& write(R_30_1_WRITE,Z_30_A_FCE_102_2000_12_1,R_30_2_THE_LETTER,R_30_6_PEN_FRIEND)
& pen_friend(R_30_6_PEN_FRIEND)
& gen(R_30_6_PEN_FRIEND,R_30_5_YOUR) ) ).
( (IP-IMP (VB;_Dn.pr_ Write;{write[to]})
(NP-OB1 (D the;{the})
(N letter;{letter}))
(PP-OB2 (P-ROLE to;{to})
(NP (NP-GEN (PRO;_genm_ your;{your}))
(N pen;{pen})
(N friend;{friend})))
(PUNC .))
(ID 30_a_fce_0102_2000_12))