1_a_stick
stick is a small BASIC program that I wrote years ago , originally in assembler , which has saved me a lot of work .

%3 0001_0002__is is 0001_0001__stick stick 0001_0002__is->0001_0001__stick [arg0] 0001_0003__a_0001_0005__BASIC_0001_0006__program a_basic_program 0001_0002__is->0001_0003__a_0001_0005__BASIC_0001_0006__program [prd2] 0001_0004__small small 0001_0003__a_0001_0005__BASIC_0001_0006__program->0001_0004__small [attrib] 0001_0009__wrote wrote 0001_0009__wrote->0001_0003__a_0001_0005__BASIC_0001_0006__program [arg1] 0001_0008__I I 0001_0009__wrote->0001_0008__I [arg0] 0001_0011__ago ago 0001_0009__wrote->0001_0011__ago [tmp] 0001_0015__assembler assembler 0001_0009__wrote->0001_0015__assembler originally_in[mnr] 0001_0010__years years 0001_0011__ago->0001_0010__years [modifier] 0001_0018__has_0001_0019__saved has_saved 0001_0018__has_0001_0019__saved->0001_0003__a_0001_0005__BASIC_0001_0006__program [arg0] 0001_0018__has_0001_0019__saved->0001_0008__I [arg2] 0001_0021__a_lot a_lot 0001_0018__has_0001_0019__saved->0001_0021__a_lot [arg1] 0001_0023__work work 0001_0021__a_lot->0001_0023__work of
arc(r_0001_0002__is,r_0001_0001__stick,arg0).
arc(r_0001_0002__is,r_0001_0003__a_r_0001_0005__BASIC_r_0001_0006__program,prd2).
arc(r_0001_0003__a_r_0001_0005__BASIC_r_0001_0006__program,r_0001_0004__small,attrib).
arc(r_0001_0009__wrote,r_0001_0003__a_r_0001_0005__BASIC_r_0001_0006__program,arg1).
arc(r_0001_0009__wrote,r_0001_0008__I,arg0).
arc(r_0001_0009__wrote,r_0001_0011__ago,tmp).
arc(r_0001_0009__wrote,r_0001_0015__assembler,r_0001_0013__originally_r_0001_0014__in__mnr).
arc(r_0001_0011__ago,r_0001_0010__years,modifier).
arc(r_0001_0018__has_r_0001_0019__saved,r_0001_0003__a_r_0001_0005__BASIC_r_0001_0006__program,arg0).
arc(r_0001_0018__has_r_0001_0019__saved,r_0001_0008__I,arg2).
arc(r_0001_0018__has_r_0001_0019__saved,r_0001_0021__a_lot,arg1).
arc(r_0001_0021__a_lot,r_0001_0023__work,r_0001_0022__of).


IP-MAT NP-SBJ NPR stick BEP;~Ln is NP-PRD2 D a ADJP ADJ small NPR BASIC N program IP-REL NP-OB1 RPRO that NP-SBJ PRO I VBD;~Tn wrote ADVP-TMP NP NS years ADV ago PUNC , PP-MNR ADVP-MOD ADV originally P-ROLE in NP N assembler PUNC , IP-REL NP-SBJ RPRO which HVP;~cat_Ve has IP-PPL-CAT VVN;~Dn.n saved NP-OB2 PRO me NP-OB1 D;_nphd_ a_lot PP P-ROLE of NP N work PUNC .
( (IP-MAT (NP-SBJ;{STICK} (NPR stick;{stick}))
          (BEP;~Ln is;{be})
          (NP-PRD2 (D a;{a})
                   (ADJP (ADJ small;{small}))
                   (NPR BASIC;{BASIC})
                   (N program;{program})
                   (IP-REL (NP-OB1 (RPRO that;{that}))
                           (NP-SBJ (PRO I;{I}))
                           (VBD;~Tn wrote;{write})
                           (ADVP-TMP (NP (NS years;{year}))
                                     (ADV ago;{ago}))
                           (PUNC ,)
                           (PP-MNR (ADVP-MOD (ADV originally;{originally}))
                                   (P-ROLE in;{in})
                                   (NP (N assembler;{assembler}))))
                   (PUNC ,)
                   (IP-REL (NP-SBJ (RPRO which;{which}))
                           (HVP;~cat_Ve has;{have})
                           (IP-PPL-CAT (VVN;~Dn.n saved;{save})
                                       (NP-OB2 (PRO me;{I}))
                                       (NP-OB1 (D;_nphd_ a_lot;{a_lot})
                                               (PP (P-ROLE of;{of})
                                                   (NP (N work;{work})))))))
          (PUNC .))
  (ID 1_a_stick))