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 r_0001_0002__is is r_0001_0001__stick stick r_0001_0002__is->r_0001_0001__stick [arg0] r_0001_0003__a_r_0001_0005__BASIC_r_0001_0006__program a BASIC program r_0001_0002__is->r_0001_0003__a_r_0001_0005__BASIC_r_0001_0006__program [prd] r_0001_0004__small small r_0001_0003__a_r_0001_0005__BASIC_r_0001_0006__program->r_0001_0004__small [attrib] r_0001_0007__that_r_0001_0009__wrote that wrote r_0001_0007__that_r_0001_0009__wrote->r_0001_0003__a_r_0001_0005__BASIC_r_0001_0006__program [arg1] r_0001_0008__I I r_0001_0007__that_r_0001_0009__wrote->r_0001_0008__I [arg0] r_0001_0011__ago ago r_0001_0007__that_r_0001_0009__wrote->r_0001_0011__ago [nim] r_0001_0015__assembler assembler r_0001_0007__that_r_0001_0009__wrote->r_0001_0015__assembler originally in [nim] r_0001_0010__years years r_0001_0011__ago->r_0001_0010__years [nim] r_0001_0018__has has r_0001_0019__saved saved r_0001_0018__has->r_0001_0019__saved [scope] r_0001_0019__saved->r_0001_0003__a_r_0001_0005__BASIC_r_0001_0006__program [arg0] r_0001_0020__me me r_0001_0019__saved->r_0001_0020__me [arg2] r_0001_0021__a_lot a lot r_0001_0019__saved->r_0001_0021__a_lot [arg1] r_0001_0023__work work r_0001_0021__a_lot->r_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, prd).
arc(r_0001_0003__a_r_0001_0005__BASIC_r_0001_0006__program, r_0001_0004__small, attrib10).
arc(r_0001_0007__that_r_0001_0009__wrote, r_0001_0003__a_r_0001_0005__BASIC_r_0001_0006__program, arg1).
arc(r_0001_0007__that_r_0001_0009__wrote, r_0001_0008__I, arg0).
arc(r_0001_0007__that_r_0001_0009__wrote, r_0001_0011__ago, nim27).
arc(r_0001_0007__that_r_0001_0009__wrote, r_0001_0015__assembler, r_0001_0013__originally_r_0001_0014__in_nim40).
arc(r_0001_0011__ago, r_0001_0010__years, nim28).
arc(r_0001_0018__has, r_0001_0019__saved, scope).
arc(r_0001_0019__saved, r_0001_0003__a_r_0001_0005__BASIC_r_0001_0006__program, arg0).
arc(r_0001_0019__saved, r_0001_0020__me, arg2).
arc(r_0001_0019__saved, r_0001_0021__a_lot, arg1).
arc(r_0001_0021__a_lot, r_0001_0023__work, r_0001_0022__of).



%3 r_0001_0002__is is r_0001_0001__stick stick r_0001_0002__is->r_0001_0001__stick [arg0] r_0001_0003__a_r_0001_0005__BASIC_r_0001_0006__program a BASIC program r_0001_0002__is->r_0001_0003__a_r_0001_0005__BASIC_r_0001_0006__program [prd] r_0001_0004__small small r_0001_0003__a_r_0001_0005__BASIC_r_0001_0006__program->r_0001_0004__small [attrib] r_0001_0007__that_r_0001_0009__wrote that wrote r_0001_0007__that_r_0001_0009__wrote->r_0001_0003__a_r_0001_0005__BASIC_r_0001_0006__program [arg1] r_0001_0008__I I r_0001_0007__that_r_0001_0009__wrote->r_0001_0008__I [arg0] r_0001_0011__ago ago r_0001_0007__that_r_0001_0009__wrote->r_0001_0011__ago [nim] r_0001_0015__assembler assembler r_0001_0007__that_r_0001_0009__wrote->r_0001_0015__assembler originally in [nim] r_0001_0010__years years r_0001_0011__ago->r_0001_0010__years [nim] r_0001_0018__has_r_0001_0019__saved has saved r_0001_0018__has_r_0001_0019__saved->r_0001_0003__a_r_0001_0005__BASIC_r_0001_0006__program [arg0] r_0001_0020__me me r_0001_0018__has_r_0001_0019__saved->r_0001_0020__me [arg2] r_0001_0021__a_lot a lot r_0001_0018__has_r_0001_0019__saved->r_0001_0021__a_lot [arg1] r_0001_0023__work work r_0001_0021__a_lot->r_0001_0023__work of
fof(formula,axiom,
    ? [R_1_2_IS,R_1_1_STICK,R_1_7_THAT_WROTE,R_1_8_I,R_1_11_AGO,R_1_10_YEARS,R_1_15_ASSEMBLER,R_1_18_HAS_SAVED,R_1_3_A_BASIC_PROGRAM,R_1_4_SMALL,R_1_21_A_LOT,R_1_23_WORK,R_1_20_ME] :
      ( stick(R_1_1_STICK)
      & i(R_1_8_I)
      & years(R_1_10_YEARS)
      & assembler(R_1_15_ASSEMBLER)
      & small(R_1_4_SMALL)
      & work(R_1_23_WORK)
      & me(R_1_20_ME)
      & is(R_1_2_IS,R_1_1_STICK,R_1_3_A_BASIC_PROGRAM)
      & a_BASIC_program(R_1_3_A_BASIC_PROGRAM)
      & attrib10(R_1_3_A_BASIC_PROGRAM,R_1_4_SMALL)
      & that_wrote(R_1_7_THAT_WROTE,R_1_8_I,R_1_3_A_BASIC_PROGRAM)
      & nim27(R_1_7_THAT_WROTE,R_1_11_AGO)
      & ago(R_1_11_AGO)
      & nim28(R_1_11_AGO,R_1_10_YEARS)
      & originally_in_nim40(R_1_7_THAT_WROTE,R_1_15_ASSEMBLER)
      & has_saved(R_1_18_HAS_SAVED,R_1_3_A_BASIC_PROGRAM,R_1_21_A_LOT,R_1_20_ME)
      & a_lot(R_1_21_A_LOT)
      & of(R_1_21_A_LOT,R_1_23_WORK) ) ).



n1_a_stick n1_a_stick_4 stick n1_a_stick_6 is n1_a_stick_9 a n1_a_stick_12 small n1_a_stick_14 BASIC n1_a_stick_16 program n1_a_stick_19 that n1_a_stick_21 *T* n1_a_stick_24 I n1_a_stick_26 wrote n1_a_stick_30 years n1_a_stick_32 ago n1_a_stick_34 , n1_a_stick_37 originally n1_a_stick_39 in n1_a_stick_42 assembler n1_a_stick_44 , n1_a_stick_48 which n1_a_stick_50 has n1_a_stick_53 saved n1_a_stick_56 me n1_a_stick_59 a_lot n1_a_stick_62 of n1_a_stick_65 work n1_a_stick_67 . n1_a_stick_1 IP-MAT n1_a_stick_2 NP-SBJ n1_a_stick_1->n1_a_stick_2 n1_a_stick_5 BEP;_Ln_ n1_a_stick_1->n1_a_stick_5 n1_a_stick_7 NP-PRD n1_a_stick_1->n1_a_stick_7 n1_a_stick_66 PUNC n1_a_stick_1->n1_a_stick_66 n1_a_stick_3 NPR n1_a_stick_2->n1_a_stick_3 n1_a_stick_3->n1_a_stick_4 n1_a_stick_5->n1_a_stick_6 n1_a_stick_8 D n1_a_stick_7->n1_a_stick_8 n1_a_stick_10 ADJP n1_a_stick_7->n1_a_stick_10 n1_a_stick_13 NPR n1_a_stick_7->n1_a_stick_13 n1_a_stick_15 N n1_a_stick_7->n1_a_stick_15 n1_a_stick_17 IP-REL n1_a_stick_7->n1_a_stick_17 n1_a_stick_43 PUNC n1_a_stick_7->n1_a_stick_43 n1_a_stick_45 IP-REL n1_a_stick_7->n1_a_stick_45 n1_a_stick_8->n1_a_stick_9 n1_a_stick_11 ADJ n1_a_stick_10->n1_a_stick_11 n1_a_stick_11->n1_a_stick_12 n1_a_stick_13->n1_a_stick_14 n1_a_stick_15->n1_a_stick_16 n1_a_stick_18 C n1_a_stick_17->n1_a_stick_18 n1_a_stick_20 NP-OB1 n1_a_stick_17->n1_a_stick_20 n1_a_stick_22 NP-SBJ n1_a_stick_17->n1_a_stick_22 n1_a_stick_25 VBD;_Tn_ n1_a_stick_17->n1_a_stick_25 n1_a_stick_27 ADVP-NIM n1_a_stick_17->n1_a_stick_27 n1_a_stick_33 PUNC n1_a_stick_17->n1_a_stick_33 n1_a_stick_35 PP-NIM n1_a_stick_17->n1_a_stick_35 n1_a_stick_18->n1_a_stick_19 n1_a_stick_20->n1_a_stick_21 n1_a_stick_23 PRO n1_a_stick_22->n1_a_stick_23 n1_a_stick_23->n1_a_stick_24 n1_a_stick_25->n1_a_stick_26 n1_a_stick_28 NP n1_a_stick_27->n1_a_stick_28 n1_a_stick_31 ADV n1_a_stick_27->n1_a_stick_31 n1_a_stick_29 NS n1_a_stick_28->n1_a_stick_29 n1_a_stick_29->n1_a_stick_30 n1_a_stick_31->n1_a_stick_32 n1_a_stick_33->n1_a_stick_34 n1_a_stick_36 ADV n1_a_stick_35->n1_a_stick_36 n1_a_stick_38 P-ROLE n1_a_stick_35->n1_a_stick_38 n1_a_stick_40 NP n1_a_stick_35->n1_a_stick_40 n1_a_stick_36->n1_a_stick_37 n1_a_stick_38->n1_a_stick_39 n1_a_stick_41 N n1_a_stick_40->n1_a_stick_41 n1_a_stick_41->n1_a_stick_42 n1_a_stick_43->n1_a_stick_44 n1_a_stick_46 NP-SBJ n1_a_stick_45->n1_a_stick_46 n1_a_stick_49 HVP;_cat_Ve_ n1_a_stick_45->n1_a_stick_49 n1_a_stick_51 IP-PPL-CAT n1_a_stick_45->n1_a_stick_51 n1_a_stick_47 RPRO n1_a_stick_46->n1_a_stick_47 n1_a_stick_47->n1_a_stick_48 n1_a_stick_49->n1_a_stick_50 n1_a_stick_52 VVN;_Dn.n_ n1_a_stick_51->n1_a_stick_52 n1_a_stick_54 NP-OB2 n1_a_stick_51->n1_a_stick_54 n1_a_stick_57 NP-OB1 n1_a_stick_51->n1_a_stick_57 n1_a_stick_52->n1_a_stick_53 n1_a_stick_55 PRO n1_a_stick_54->n1_a_stick_55 n1_a_stick_55->n1_a_stick_56 n1_a_stick_58 D;_nphd_ n1_a_stick_57->n1_a_stick_58 n1_a_stick_60 PP n1_a_stick_57->n1_a_stick_60 n1_a_stick_58->n1_a_stick_59 n1_a_stick_61 P-ROLE n1_a_stick_60->n1_a_stick_61 n1_a_stick_63 NP n1_a_stick_60->n1_a_stick_63 n1_a_stick_61->n1_a_stick_62 n1_a_stick_64 N n1_a_stick_63->n1_a_stick_64 n1_a_stick_64->n1_a_stick_65 n1_a_stick_66->n1_a_stick_67
( (IP-MAT (NP-SBJ;{STICK} (NPR stick;{stick}))
          (BEP;_Ln_ is;{be})
          (NP-PRD (D a;{a})
                  (ADJP (ADJ small;{small}))
                  (NPR BASIC;{BASIC})
                  (N program;{program})
                  (IP-REL (C that;{that})
                          (NP-OB1 *T*)
                          (NP-SBJ (PRO I;{I}))
                          (VBD;_Tn_ wrote;{write})
                          (ADVP-NIM (NP (NS years;{year}))
                                    (ADV ago;{ago}))
                          (PUNC ,)
                          (PP-NIM (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))