Visual Prolog Debugger v.6.0 info ߛWIY parse_use  "'C:\progs75\PARSER_USE_V52\parse_use.pro 'C:\progs75\PARSER_USE_V52\parse_use.inc .(C:\VIP52\vpi\include\vpi.con .(C:\VIP52\vpi\include\vpi.dom!C:\VIP52\include\types.dom .(C:\VIP52\vpi\include\vpi.pre "'C:\progs75\PARSER_USE_V52\parse_use.pre "&C:\progs75\PARSER_USE_V52\vpitools.dom .)&C:\VIP52\vpi\include\dialog\dialog.dom  .(C:\VIP52\vpi\include\edit.dom  .0(C:\VIP52\vpi\include\toolbar\toolbar.dom  "&C:\progs75\PARSER_USE_V52\vpitools.pre  .)&C:\VIP52\vpi\include\dialog\dialog.pre  .(C:\VIP52\vpi\include\edit.pre  .+*C:\VIP52\vpi\include\messages\messages.pre  .0(C:\VIP52\vpi\include\toolbar\toolbar.pre  .,*C:\VIP52\vpi\include\progress\progress.pre. +C:\progs75\PARSER_USE_V52\string_dialog.pre/"'C:\progs75\PARSER_USE_V52\parse_use.con !8&C:\progs75\PARSER_USE_V52\hlptopic.con %.C:\progs75\PARSER_USE_V52\generated_parser.pro  3 ,C:\progs75\PARSER_USE_V52\pprint_clauses.proN _PROLOG_GoalM4JJN z>TwVTokensEPw:TermzMlw Unused_Tokensjlw Rest_Tokens'sw parse_report(i,o,o)qn zTokens:Termz Rest_Tokens parse_rest(i,i)r* 6 Rest_tokens 6:_Count6::* List_tokensF*:CountS*:Termxzy* Rest_Tokens*Res2 *Count2*}display_resultssPR PPPQQR7 transp_operat(i,o)t+ && | &C&S6&C& |E&&S^&& |Qwd&&&&#Ato|&&#:Qw&&"#write_out_metta(i,i)u,[^ z<>Level),: Operatorx|?> z Atom_List{K> zSx |>C1 TLevelT: Operatorx|T z Atom_List{%T zSx WTC1 'Twrite_out_metta2(i,i)v\ {lpl_lpyt Levelyt :S_exprzy  {Lis{y  {Level2y { Level :Hy {Lis{ {Sx Chas_no_sub_nesting2(i,i,o)wO B {5Res(5:8  _Operatorx|j {Ato_lis{w {_Lis{ {Cou :Res  Cou2 B D ( _HyB( D {Lis{B( D {CouB D :Res B@ D transpile_metta2(i,i,i,i,i,i,o)zP g Z28{{Z22` n ` _l22` n _o22` n _r22` n _u22` n _x22` n 285p Level285p :Levelsub285p : Level_inside285p : Is_perform285p : Cou285p :Operat|285 { Atom_List2{285 {Lis{385 {Count385 {Sx #385( { Result_list {*385 {Res 385 Transp_numbers -385` _Nils - 485`  Atom_List3{485` Level2485  Levelsub2485  ;57 + LevelM57 :LevelsubT57 : Level_inside^57 : Is_performm57 : Couy57 :_Op|57+ { Atom_List2{57+ {Lis{57+ { Result_list{57  Level_inside2 57B Level2 57Y  Levelsub2  67o  Atom_List3 {w67  78 `  Level,78 ` :Levelsub378 ` : Level_inside=78 ` : Is_performL78 ` : CouX78 ` :Hy_78 ` {Lis{c78 ` { Result_list{q78` ` {Level278* `  Levelsub2 78@ ` transpile_metta(i,i,o){h  8:zz8s9x Is_perform8s9h :Opx|9s9 z Atom_List{9s9 zResb9s9 v9:  Is_perform9:  :Opx|9:  z Atom_List{9:  z Atom_List2{9:  ztokenize(i,o)| C cc 8 Exprm 8 :Tokenss4 8 get_last_string(i,o)}D \ ;H k R _Def;D k :Last#;` k =\l x t DefN\l x :project_showhelpcontext(i)~ Index HelpTopic :dlg_about_dialog_create(i) r=Parentr Parent= :tb_project_toolbar_create(i) #=Parent  _Parent= :tb_help_line_create(i)$[J=ParentJ(R(_Parent=J$R:< max_no_lines8mess_win=: msg_buffer9 msg_timer: msg_newrctD5 msg_debug= tb_sans_cadre+== tb_sans_click,=expect (t(i,o),i,o)?\    llTOK  l L  l o syntax_error(i,i)@k$ D 4$ ( Z Type_mess2 ( Z:Token@ ( Z _Tok_lisH ( Z Sx ( ZC3 ( +Z/ D \`\_= D \`_A D \`R s_atom_list(i,o,o)Al[a{[p{LL1hl:LL0nAtomyv{ Atom_List{}{LL2LL:s_atom(i,o,o)BOyD=9STRINGD9= _~D9=LL D9= H@Rea^ _~gLLm STRING _~LL  R+LL1R+:LL0R +EXPRz)R +yV,E,LL^,E:_c,E_yg,E s_operator(i,o,o)C PT|t_~LL C_~bLLh _~LL ;{B4_~Z{4BLL`{4B D~p_~p~LLp~ _~LL ;_~;LL"; ?t2$_~Xt$2LL^t$2 x4~String~ _~~LL~ String _~LL TLLT:_$T_|(TVs_expr(i,o,o)Ds_Pz _C<>_~zC>_~C>LL1C> LL0COperator|Clz Atom_List{CzLL2ClLL3 C_~2C>IK_~]KLL1cK LL0kKKOperator|Kz Atom_List{ KzLL2KLL3 K_~KPLiNLLPLi:_$PNi_z(PNi is_a_space(i)Etk  k |   scan(i,i,o)FcX ~ cDStarting_Position~iD:Source|D:Token}D`Location_Of_Token~DTailD New_SourceDNumber_Of_SpacesD Fronttoken<D8RestHD8Lower_Case_Fronttoken UDLLength_Of_Fronttoken D~New_Starting_Position DHX_~NX_QX skip_spaces(i,o,o)Go]g ]DQSourcejDQ: New_SourcerD4QNumber_Of_Spaces~DMQCharDQSource1 DQNumber_Of_Spaces_In_Source1D4QHgTgTSourceUgTg:N string_tokenq(i,o)Hp  }4Z ?1@gYh .2S\|/!+k0t:String:k0t:ReaJkit}pxStrx:Bg _Res String: get_fronttoken(i,o,o)I  <+  Source :Bg Res2  Fronttoken  ?Rest  ?PosN P2U Res { _  j Source j :Bg3 j Rest2 j R Fronttoken j Rest  j  Fronttoken2 1 j R<Source<: Fronttoken<Rest <print_transpiled(i)JG,--Bz,--=Op|M--= zLis{Q--= zOp_sr--=print_transpiled2(i,i)KH+"-c{++X\X_++X\+-,`Cou+-, {Tx+-, {Tag+-,`:Cs +-,/,,/CouP,,/ {TxU,,/ {Rs{\,,/ {Tagc,,:Cs y,,T,"-_y,"-Rs{,"- {Tag,"-:string_replace_tag (i,i,i,o)L-2/ -/A-/: Rmvtag./:Rep ./:Ares./P4./P29./0LeX./NSta w./Rest |./_ ./Rest2 ./Z1 ./Aq ./ /2/ A/2/: _Rmvtag /2/:_)/2/ i display_results2M {'RcRR +Res37RR<'S?W!CountMS?W!TermxzTS?W!_S?W!_S?W!_S?W!_|S?W!_-S?W!_{S?W!_{S?W!_  T?W!_ T?W!_ |T?W!_ -T?W!_ {T?W!_{T?W!_zBT?W!_nT?W!Termx2zT?Wp !S_res2 T?W!Operat|1U?W!zAto_list{:U?W!z_hU?W! T_rebuild{U?W !! S_rebuild2 U?W!FW%Y!a#!Nx}W%Y!a#Operat|W%Y"a# Transp_sublis-W%Y"a# _Ato_List2{W%Y"a# Ato_List3{W%Y"a#_(X%Y!a# T_rebuild3{]X%Y #a# [\d#)$q#_s[\q#)$_-v[\q#)$_,z[\q#)$Terz[\#)$_Operat0|[\q#)$z T_rebuild{[\q#)$zNx\\$)$Operat|#\\$)$ Transp_sublis-+\\$)$ _Ato_List2 {:\\$)$ T_rebuild3 {F\\$)$_H j\\q#)$-_Res -o\\q#)$-\],$$9$A)]]l$$B-,]]l$$C,0]]l$$Sx i]]9$$]_$%$Cou2'^_$%%Operat|-^_$%% Transp_lis-5^_$%% Atom_List2{A^_$%% Atom_List3{M^_$%%Sx 0__$%Sx2___%%_Da%&%Cou2_Da &&Operat|_Da && Transp_lis-_Da && Atom_List2{_Da && Atom_List3{ `Da &&Sx `Da%&Sx2aDa|&&Gab&o'&Countab&o'Termxzab&o'Sx ab'o'Res2 ab&o'Res3bbD'o'ccp'q'p'rebuild_transpiled_sub (i,i,i,o,o)N|'7)>B,,>qB')' Count_replace>qB|'):Transp_list_str>qB|'): Varsn_lis,>qB|'):C6>qB)) Varsn_lis2,>qB()_Num_funct_str?qB')After1+?qB')_P?qB')After2T?qB')Bg y?qB')After3 ~?qB')C1 ?qB()C2 ?qB&()Ter {?qB')_?qB')C6_vars_str_lis,E@qB()Varsn_lis_todo,GAqB()_,WAqB') Varsn_lis3,AqB()sBB).) )_BB ).)Transp_list_strBB).): _,BB ).)| change_adhoc(i,o)O8)S)B/_/CB/_/<)H)D)ResP/_/8)H):1rebuild_transpiled_string (i,i,i,o,o)PT)W*BKEn,,BDX)7*e) Count_replaceBDT)7*:Tra_strBDT)7*: Varsnames_l,BDT)7*:Tra_str2CD7*7*Varsnames_resl, CD7*7*BeforeoCD)7*AfterwCD)7*Transp_list_strCD)7*After2CD)7*Transp_list_str2 DD)7*Vars_names_list ,DD)7*C1 LDD)7*C2 fDD *7*Count_replace2 oDD!*7*DKE8*L*H*_Count_replaceEKE8*L*:ResuEKE8*L*: Varsnames_l,&EKE8*L*:[rebuild_transpiled_strings(i,i,o)QX*+qEH{,{qEEh*v*h*_,EEh*v*EYGx*3+*NxEYG*3+ {Tra_strEYG*3+ {Rest{EYG*3+ { Varsn_lis,EYGx*3+:Tra_str2FYG+3+{ T_rebuild{ FYG3+3+{ _Varsn_lis2,FYG+3+_G0H4++j+VaG0Hj++ {Rest{G0Hj++ { Varsn_lis,G0H4++: T_rebuild{G0H++{7HH+++HyUHH++ {Rest{YHH++ { Varsn_lis,bHH++: T_rebuild{sHH++{ str_after (i,i,o,o)R+,  +,+Varstr +,: Big_str+,:Beforer,,Rest&,,LzB,,Fpj:,,FpxrP,,_Rest0 r,,Fp2,,_Sta ,,\which_list_for_second (i,i,i,o)S,,D::L ,,,D::,,, Varsn_lis2,^::,,:_Varsn_lis_todo,j::,,:::,,,_Count_replace::,,: _Varsn_lis2,::,,:Varsn_lis_todo,::,,: assert_var(i)T-_-01 00-'--Sx00-'-:01(-V-(-Sx01(-V-: assert_vars(i)U`--11 {1&1p-t-p-(1w1x---SxA1w1-- {Rs{H1w1-- {y11---_y11--Rs{11-- {assert_variabels_concerned(i)V-;.12 12-4.-Nx12-4.:_Operat|22.4.Subnums-22.4. Numsf_vars{$22.4._{022-4.assert_variabels_concerned_list(i)W<..Q34 -Q3z3L.P.L.|34T.x.T.Num34T.x. -Nums_sub-34T.x. -9 rebuild_transpiled_sub2_vars_str(i,i,o)X./;79)!{,,;7o7...Res,b7o7..:q78._/.Nx78._/ {Rs{78._/ {Varslist,78._/:C6,78_/_/Varx78._/ Vars_str_list, 88._/ Varslist2,P88H/_/8g9`///Var_str8g9// {Rs{8g9// {Varslist,8g9`//:C6,8g9// Varslist2,9g9//v99///_y99//Rs{99// {Varslist,99//:C6,99//7add_when_not_in_list(i,i,o)Y/0)+u!,,,)*/0/Varslist,)*/0: Varslist2,)*00**0040Varx-**400 , Vars_str_list,4**400 ,Varslist,E**00: Varslist2,P**00*+000_Varx++00 , Vars_str_list,++00 ,Varslist,,++00: Varslist2,7++00|filter_which_are_not_in_list (i,i,o,o)Z0{1')!,,,,''000 _Varslist,''00:'(0711Varx ((171 ,  Vars_str_list,((171 , Varslist,"((071: Varslist2,5((7171, Varslist3,C((7171()81t1[1Varx))[1t1 ,  Vars_str_list,))[1t1 , Varslist,0))81t1: Varslist2,:))t1t1 Varslist3,O))t1t1,. is_member(i,i)[|11%g&!,%&111Varx%&|11: _Varslist,&&11 ,!&g&111Varx,&g&11:_4&g&11Varslist,8&g&11 , is_not_member(i,i)\12j&&",j&&121Varxy&&12:Varslist,&&12:&&222_Varx&&22: _Varslist,&&22:I reverse_slist(i,i,o)] 2s2;%%K",,,;%i%02<282 Varslist2,N%i% 2<2:k%%@2l2@2Varx|%%@2l2 , Vars_str_list,%%@2l2 ,Varslist,%%@2l2: Varslist2,%%l2l2hwrite_body_subs(i,i)^t25HK"{HH222_NxHHt22:II2P32NxII2P3:VII2P3 {Sx II2P3IJT333NxJJT33:Nx_sub"JJ33 {Sub0*JJ33 {SubJ33JJ3744NxJJ374:_yJJ474JK844W4NxJK844:Nx_subJKW44 {Sub0KKW44 {Subs{KKW44 {Sub;KKp44KK444NxKK44:_yKK44Subs{KK44 {Dwrite_head_body(i,i)_5o6OP"{OP$5e6'5Nx0OP5e6:NxOP'5e6 {HeadOP'5e6 {Subs{OP'5e6 {Sx 4PP5e6Sx0 HPP5e6write_head_body2(i,i,i)`p67?NO"|{?NOt67w6Nx0QNOp67:Operat|VNOp67:Subs{^NOp67:Sq NOw67 Headvars_str0NO67 Headvars_strNO67Sx %OO77Sx0 :OO<77update_head_subs(i,i,i)a7:C$8% #C$$79 8NxU$$79:Nx_subZ$$79:Substrd$$79:Lis-$$ 89Slis,$$ 89 $8%9:9Nx$8%9::Nx_sub$8%9::Substr$8%9::try_get_head_vars2 (i,i,i,o)b::KL_#-,K0L<:H:D:Nx L0L:H:: Nlis-L0LD:H: -SzL0LD:H: ,Slis,!L0LD:H: ,2LLL:|:j:NxFLLL:|:: _KLLj:|:Nlis-MLLj:|: -_ULLj:|:Slis,YLLj:|: ,Sz`LL|:|:try_get_head_vars(i,i,o)c::L@M#LM:::Nx0LM:::_LM:: Headvars_strLM::_LM::Nlis-LM::Slis,LM::M@M:::_Nx0.M@M:::Sq4M@M:::5clean_var_list(i,o)d:;:;#,,:;;;;;;;|;;H;;;|; ,Ter,;;;|; ,S3";;`;|;,Ter2,%;;|;|;,S2 >;;3;|;temp_clean_str_var_lis(i,o)e;o=;>$;Z>;W=; Headvars_str0;Z>;W=:C7;Z>W=W=Bg0;Z>;W=After2;Z>;W=Bg <Z>;W=After3<Z>;W=C1 L<Z>;W=C2 d<Z><W=Ter,<Z>;W=_ <Z>;W=Ter2 ,<Z><W=C3 <Z>;W=C31 =Z><W=C32 B=Z><W=C33o=Z><W=C5 =Z>'=W=C6 >Z>H=W=_>>X=d=`= Headvars_strw>>X=d=:5countfRhfilter_transpiled_numbers (i,o,o,o)gp=>0O2r{--{00===01=>=Tnum 11=> { _11=>Rs{11=> { Nums-'11>>-Transp_numbers-211>>Newlis{T11>>{1O2 >x>E>Hy1O2E>x> { Rs{1O2E>x> { Nums-1O2x>x>Transp_numbers-1O2x>x>-Newlis{1O2x>x>{ increment(o)h>G?R00R00>??>C2]00???Cr00>??transpile_claus (i,i,i,o)iH?wA<,7/|{<,=-L?@Y? Is_performM,=-H?@: Operat|Z,=-H?@:Ato_List{c,=-H?@:Sx2n,=-@@Op_s,=-?@List_str,=-?@C1 -=-?@Sx -=-?@A-D.@@@ Is_performR-D.@@: Operat|_-D.@@:Ato_List{h-D.@@:Sx2s-D.@@Op_s-D.P@@List_str-D.l@@C1 .D.@@Sx &.D.@@I.7/@oA@ Is_performZ.7/@oA: Operat|g.7/@oA:Ato_List{p.7/@oA:Sx2{.7/nAoAOp_s.7/@oAList_str.7/AoAC1 .7/+AoASx /7/LAoA* transp_ato(i,i,o)jxAC'*/y'A'AAA_*'A'AAS4'A'AA yD''AAASd''AA yS3j''AAS2 ''AA''A/BBVa''B/B yS3''.B/B'D(0BwB>B_(D(>BwBS(D(>BwB yQw(D(sBwBm)+*xB;CBNx)+*B;C yS)+*B;C yQw)+*7C;COperat|)+*B;C_Sublist-)+*B;CAto_lis{)+*B;C_{)+*B;CQ0 )+*B;C.**:^i PPQCQ`QQ7QSQQ &E&&,>]p8A\t* {A8 P Z2p 2 B3 X3 3( 3C 3` O4 4 4 4 ;5+ 5B 5Y 6o %6 6 7 7* 7@ 7h 8 >9 v9 C: cD l =   r   $(NF\ $ ]   + \/ l[{@H ,VPC;D?4x_>l I Ltk   c FUL|`~H]4THpZ@h 2\0+xp   g4    1 `K ,-^-|-- -H+`+/,/p,,-0G... /R+0R<BRXcR'S@SSS S %T= LT[ xTp T T U MU!sU !U]!U!+V!6W!FW!^W"W" X"2X #pX\#Yd#[q#/[#\[#[#[# \$X\$z\$$\,$\9$\U$]l$9]$]$]$]%^$%^u%9_%i_%_%_%_%_ &`]&`|&&a&=a&Ga&^a&a'a%'aD'xbk'bp'c|'>'>'7?'`?'?&(?(@(@( A(]A(A)pB)sB8)B/T)Be)OC)C)C)*D *oD!*D8*DX*qEx*E*RF*F+G4+_Gj+G+G+7H+H++0:,rP,r,,D:,:-0(-0`-1x-(1-y1-1-1.>2$.m2<.Q3T.|3h.3.;7.q7.72/ 8H/a8`/8/8/09/v9/)0*40_*S0*0*0E+0'0'1R(1v(81([1^)|1%1!&1j&2& 2;%@2%t2H2IT3I3=J3cJ3J84Jp4DK4K5O'5Pp5+P5VP5}P06Pp6?Nw6jN6N6N6N7O71O<7HO7qO7O7C$9$:KL:2L:L:L:M::;;;1;`;q;;;;;;;;:<<m<l<<<<<<<K=<===H=:>X=_>p=0=0=e1 >1E> 2>R0H?<,w?,?,?,@A-;@-P@-l@-@I.@.@.A.xA'AD'A'0B'xBm)B)B)B)