alias mtc { 
  if ( $2 == $null ) { echo -ta 4/!\1 Tu n'as pas rentré de message 4/!\  | halt }
  var %mtcmsg $replace($2-,0,o)
  var %mtccol $$1
  var %mtcmt %mtcmsg
  var %mtcmt2 %mtcmsg
  var %mtcmt3 %mtcmsg
  var %mtcmt4 %mtcmsg
  var %mtcmt5 %mtcmsg
  var %mtcl  = $replace($replace($replace( AVA  BVB     ,V, $chr(44)),A,%mtccol),B,0)
  var %mtcl2 = $replace($replace($replace( AVA      BVB ,V, $chr(44)),A,%mtccol),B,0)  
  var %mtca1 = $replace($replace($replace(BVB AVA    BVB  AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtcn1 = $replace($replace($replace(AVA  BVB  AVA  BVB AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtct1 = $replace($replace($replace(AVA      BVB AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtcb1 = $replace($replace($replace(AVA     BVB  AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtcs2 = $replace($replace($replace(AVA  BVB     AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtck2 = $replace($replace($replace(AVA  BVB AVA  BVB  AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtcd1 = $replace($replace($replace(AVA    BVB   AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtce1 = $replace($replace($replace(AVA     BVB AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtce2 = $replace($replace($replace(AVA  BVB    AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtcint = $replace($replace($replace(AVA    BVB  AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtcg3 = $replace($replace($replace(AVA  BVB AVA   BVB AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtcg5 = $replace($replace($replace(BVB AVA     BVB AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtcu1 = $replace($replace($replace(AVA  BVB   AVA  BVB AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtcm2 = $replace($replace($replace(AVA       BVB AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtci1 = $replace($replace($replace(AVA    BVB AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtci2 = $replace($replace($replace(BVB AVA  BVB  AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtcj1 = $replace($replace($replace(BVB    AVA  BVB AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtcm1 = $replace($replace($replace(BVB AVA  BVB AVA  BVB  AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtcm3 = $replace($replace($replace(AVA  BVB AVA BVB AVA  BVB AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtcn2 = $replace($replace($replace(AVA   BVB AVA  BVB AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtco1 = $replace($replace($replace(BVB AVA    BVB  ,V, $chr(44)),A,%mtccol),B,0)
  var %mtcq1 = $replace($replace($replace(BVB AVA     BVB AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtcq2 = $replace($replace($replace(BVB    AVA  BVB AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtcr1 = $replace($replace($replace( AVA     BVB  ,V, $chr(44)),A,%mtccol),B,0)
  var %mtcr2 = $replace($replace($replace( AVA  BVB  AVA  BVB ,V, $chr(44)),A,%mtccol),B,0)
  var %mtcr3 = $replace($replace($replace( AVA     BVB  ,V, $chr(44)),A,%mtccol),B,0)
  var %mtct2 = $replace($replace($replace(BVB  AVA  BVB   ,V, $chr(44)),A,%mtccol),B,0)
  var %mtcu5 = $replace($replace($replace(BVB AVA     BVB  AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtcv1 = $replace($replace($replace(AVA  BVB      AVA  BVB AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtcv2 = $replace($replace($replace(BVB AVA  BVB    AVA  BVB  AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtcv3 = $replace($replace($replace(BVB  AVA  BVB  AVA  BVB   AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtcv4 = $replace($replace($replace(BVB   AVA  BVBAVA  BVB    AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtcsl3 = $replace($replace($replace(BVB    AVA  BVB     AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtcx1 = $replace($replace($replace(AVA  BVB    AVA  BVB AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtcx2 = $replace($replace($replace(BVB AVA  BVB  AVA  BVB  AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtcx3 = $replace($replace($replace(BVB   AVA  BVB    AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtcy1 = $replace($replace($replace(AVA  BVB  AVA  BVB AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtcy3 = $replace($replace($replace(BVB AVA     BVB ,V, $chr(44)),A,%mtccol),B,0)
  var %mtcy4 = $replace($replace($replace(BVB    AVA  BVB ,V, $chr(44)),A,%mtccol),B,0)
  var %mtcz2 = $replace($replace($replace(BVB   AVA  BVB  ,V, $chr(44)),A,%mtccol),B,0)
  var %mtcz4 = $replace($replace($replace(BVB AVA  BVB    ,V, $chr(44)),A,%mtccol),B,0)
  var %mtcpl1 = $replace($replace(BVB          ,V, $chr(44)),B,0)
  var %mtcpl2 = $replace($replace($replace(BVB   AVA   BVB    ,V, $chr(44)),A,%mtccol),B,0)
  var %mtcpl3 = $replace($replace($replace(AVA         BVB ,V, $chr(44)),A,%mtccol),B,0)
  var %mtcesp1 = $replace($replace($replace(BVB     AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtcecl = $replace($replace($replace(BVB AVA  BVB AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtcecl4 = $replace($replace($replace(BVB    AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtcint2 = $replace($replace($replace(BVB   AVA  BVB AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtcint3 = $replace($replace($replace(BVB AVA   BVB  AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtcint4 = $replace($replace($replace(BVB      AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtcint5 = $replace($replace($replace(BVB AVA  BVB   AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtceg1 = $replace($replace(BVB        ,V, $chr(44)),B,0)
  var %mtcdp1 = $replace($replace(BVB    ,V, $chr(44)),B,0)
  var %mtcdie1 = $replace($replace($replace(BVB      AVA  BVB    AVA  BVB  AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtcap1 = $replace($replace($replace(BVB  AVA  BVB   AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtcpg1 = $replace($replace($replace(BVB   AVA  BVB ,V, $chr(44)),A,%mtccol),B,0) 
  var %mtcpd1 = $replace($replace($replace(AVA  BVB    ,V, $chr(44)),A,%mtccol),B,0)
  var %mtcpo1 = $replace($replace(BVB     ,V, $chr(44)),B,0)
  var %mtcsl1 = $replace($replace($replace(BVB        AVA  BVB AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtcbsl1 = $replace($replace($replace(AVA  BVB         AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtcpc1 = $replace($replace($replace(AVA    BVB    AVA  BVB  AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtcdie2 = $replace($replace($replace(  AVA             BVB AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtcap2 = $replace($replace($replace(BVB AVA  BVB    AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtceg2 = $replace($replace($replace(AVA       BVB ,V, $chr(44)),A,%mtccol),B,0)
  var %mtcpg2 = $replace($replace($replace(BVB AVA  BVB   ,V, $chr(44)),A,%mtccol),B,0)
  var %mtcpd2 = $replace($replace($replace(BVB  AVA  BVB  ,V, $chr(44)),A,%mtccol),B,0)
  var %mtcdp2 = $replace($replace($replace(AVA   BVB ,V, $chr(44)),A,%mtccol),B,0)
  var %mtcsl2 = $replace($replace($replace(BVB      AVA  BVB   AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtcbsl2 = $replace($replace($replace(BVB  AVA  BVB       AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtcpc2 = $replace($replace($replace(BVB      AVA  BVB    AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtcap3 = $replace($replace(BVB       ,V, $chr(44)),B,0)
  var %mtcdie3 = $replace($replace($replace(BVB    AVA  BVB    AVA  BVB    AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtcpc3 = $replace($replace($replace(BVB    AVA  BVB      AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtcdie4 = $replace($replace($replace(AVA              BVB  AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtcpc4 = $replace($replace($replace(BVB  AVA  BVB        AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtcbsl4 = $replace($replace($replace(BVB      AVA  BVB   ,V, $chr(44)),A,%mtccol),B,0)
  var %mtcdie5 = $replace($replace($replace(BVB  AVA  BVB    AVA  BVB      AVA,V, $chr(44)),A,%mtccol),B,0)
  var %mtcpo5 = $replace($replace($replace(AVA   BVB  ,V, $chr(44)),A,%mtccol),B,0)
  var %mtcpc5 = $replace($replace($replace(AVA  BVB     AVA    BVB AVA,V, $chr(44)),A,%mtccol),B,0)

  %mtcmt = $replace(%mtcmt,a,%mtca1)
  %mtcmt = $replace(%mtcmt,à,%mtca1)
  %mtcmt = $replace(%mtcmt,b,%mtcb1)  
  %mtcmt = $replace(%mtcmt,c,%mtca1)    
  %mtcmt = $replace(%mtcmt,d,%mtcd1)
  %mtcmt = $replace(%mtcmt,e,%mtce1)
  %mtcmt = $replace(%mtcmt,é,%mtce1)
  %mtcmt = $replace(%mtcmt,è,%mtce1)
  %mtcmt = $replace(%mtcmt,ê,%mtce1)
  %mtcmt = $replace(%mtcmt,f,%mtce1)
  %mtcmt = $replace(%mtcmt,g,%mtca1)
  %mtcmt = $replace(%mtcmt,h,%mtcu1)
  %mtcmt = $replace(%mtcmt,i,%mtci1)
  %mtcmt = $replace(%mtcmt,j,%mtcj1)
  %mtcmt = $replace(%mtcmt,k,%mtcn1)
  %mtcmt = $replace(%mtcmt,l,%mtcl)
  %mtcmt = $replace(%mtcmt,m,%mtcm1)
  %mtcmt = $replace(%mtcmt,n,%mtcn1)
  %mtcmt = $replace(%mtcmt,o,%mtco1)
  %mtcmt = $replace(%mtcmt,p,%mtcb1)
  %mtcmt = $replace(%mtcmt,q,%mtcq1)
  %mtcmt = $replace(%mtcmt,r,%mtcr1)
  %mtcmt = $replace(%mtcmt,s,%mtca1)
  %mtcmt = $replace(%mtcmt,t,%mtct1)
  %mtcmt = $replace(%mtcmt,u,%mtcu1)
  %mtcmt = $replace(%mtcmt,v,%mtcv1)
  %mtcmt = $replace(%mtcmt,w,%mtcu1)
  %mtcmt = $replace(%mtcmt,x,%mtcx1)
  %mtcmt = $replace(%mtcmt,y,%mtcy1)
  %mtcmt = $replace(%mtcmt,z,%mtct1)
  %mtcmt = $replace(%mtcmt,+,%mtcpl1)
  %mtcmt = $replace(%mtcmt,-,%mtcpl1)
  %mtcmt = $replace(%mtcmt,_,%mtcpl1)
  %mtcmt = $replace(%mtcmt,$chr(32),%mtcesp1 )  
  %mtcmt = $replace(%mtcmt,!,%mtcecl)
  %mtcmt = $replace(%mtcmt,?,%mtcint)
  %mtcmt = $replace(%mtcmt,$chr(35),%mtcdie1)  
  %mtcmt = $replace(%mtcmt,8,%mtco1)
  %mtcmt = $replace(%mtcmt,',%mtcap1)
  %mtcmt = $replace(%mtcmt,=,%mtceg1)
  %mtcmt = $replace(%mtcmt,$chr(40),%mtcpg1) 
  %mtcmt = $replace(%mtcmt,$chr(41),%mtcpd1) 
  %mtcmt = $replace(%mtcmt,:,%mtcdp1)
  %mtcmt = $replace(%mtcmt,.,%mtcpo1)
  %mtcmt = $replace(%mtcmt,/,%mtcsl1)
  %mtcmt = $replace(%mtcmt,\,%mtcbsl1)
  %mtcmt = $replace(%mtcmt,%,%mtcpc1)

  %mtcmt2 = $replace(%mtcmt2,a,%mtcn1)  
  %mtcmt2 = $replace(%mtcmt2,à,%mtcn1)  
  %mtcmt2 = $replace(%mtcmt2,b,%mtcn1)
  %mtcmt2 = $replace(%mtcmt2,c,%mtcn1)    
  %mtcmt2 = $replace(%mtcmt2,d,%mtck2)  
  %mtcmt2 = $replace(%mtcmt2,e,%mtce2)
  %mtcmt2 = $replace(%mtcmt2,é,%mtce2)
  %mtcmt2 = $replace(%mtcmt2,è,%mtce2)
  %mtcmt2 = $replace(%mtcmt2,ê,%mtce2)
  %mtcmt2 = $replace(%mtcmt2,f,%mtce2)
  %mtcmt2 = $replace(%mtcmt2,g,%mtcs2)
  %mtcmt2 = $replace(%mtcmt2,h,%mtcu1)
  %mtcmt2 = $replace(%mtcmt2,i,%mtci2)  
  %mtcmt2 = $replace(%mtcmt2,j,%mtcj1)
  %mtcmt2 = $replace(%mtcmt2,k,%mtck2)
  %mtcmt2 = $replace(%mtcmt2,l,%mtcl)
  %mtcmt2 = $replace(%mtcmt2,m,%mtcm2)
  %mtcmt2 = $replace(%mtcmt2,n,%mtcn2)
  %mtcmt2 = $replace(%mtcmt2,o,%mtcn1)
  %mtcmt2 = $replace(%mtcmt2,p,%mtcn1)
  %mtcmt2 = $replace(%mtcmt2,q,%mtcn1)
  %mtcmt2 = $replace(%mtcmt2,r,%mtcr2)
  %mtcmt2 = $replace(%mtcmt2,s,%mtcs2)
  %mtcmt2 = $replace(%mtcmt2,t,%mtct2)
  %mtcmt2 = $replace(%mtcmt2,u,%mtcu1)
  %mtcmt2 = $replace(%mtcmt2,v,%mtcv2)  
  %mtcmt2 = $replace(%mtcmt2,w,%mtcu1)  
  %mtcmt2 = $replace(%mtcmt2,x,%mtcx2) 
  %mtcmt2 = $replace(%mtcmt2,y,%mtcn1)  
  %mtcmt2 = $replace(%mtcmt2,z,%mtcz2)  
  %mtcmt2 = $replace(%mtcmt2,+,%mtcpl2)
  %mtcmt2 = $replace(%mtcmt2,-,%mtcpl1)
  %mtcmt2 = $replace(%mtcmt2,_,%mtcpl1)
  %mtcmt2 = $replace(%mtcmt2,$chr(32),%mtcesp1)
  %mtcmt2 = $replace(%mtcmt2,!,%mtcecl)
  %mtcmt2 = $replace(%mtcmt2,?,%mtcint2)
  %mtcmt2 = $replace(%mtcmt2,$chr(35),%mtcdie2) 
  %mtcmt2 = $replace(%mtcmt2,8,%mtcn1)
  %mtcmt2 = $replace(%mtcmt2,',%mtcap2)
  %mtcmt2 = $replace(%mtcmt2,=,%mtceg2)
  %mtcmt2 = $replace(%mtcmt2,$chr(40),%mtcpg2) 
  %mtcmt2 = $replace(%mtcmt2,$chr(41),%mtcpd2) 
  %mtcmt2 = $replace(%mtcmt2,:,%mtcdp2)
  %mtcmt2 = $replace(%mtcmt2,.,%mtcpo1)
  %mtcmt2 = $replace(%mtcmt2,/,%mtcsl2)
  %mtcmt2 = $replace(%mtcmt2,\,%mtcbsl2)
  %mtcmt2 = $replace(%mtcmt2,%,%mtcpc2)

  %mtcmt3 = $replace(%mtcmt3,a,%mtct1)  
  %mtcmt3 = $replace(%mtcmt3,à,%mtct1)  
  %mtcmt3 = $replace(%mtcmt3,b,%mtcb1)
  %mtcmt3 = $replace(%mtcmt3,c,%mtcs2)  
  %mtcmt3 = $replace(%mtcmt3,d,%mtcn1)  
  %mtcmt3 = $replace(%mtcmt3,e,%mtcint)
  %mtcmt3 = $replace(%mtcmt3,é,%mtcint)
  %mtcmt3 = $replace(%mtcmt3,è,%mtcint)
  %mtcmt3 = $replace(%mtcmt3,ê,%mtcint)
  %mtcmt3 = $replace(%mtcmt3,f,%mtcint)
  %mtcmt3 = $replace(%mtcmt3,g,%mtcg3)
  %mtcmt3 = $replace(%mtcmt3,h,%mtcm2)
  %mtcmt3 = $replace(%mtcmt3,i,%mtci2)
  %mtcmt3 = $replace(%mtcmt3,j,%mtcj1)
  %mtcmt3 = $replace(%mtcmt3,k,%mtcd1)
  %mtcmt3 = $replace(%mtcmt3,l,%mtcl)
  %mtcmt3 = $replace(%mtcmt3,m,%mtcm3)
  %mtcmt3 = $replace(%mtcmt3,n,%mtct1)
  %mtcmt3 = $replace(%mtcmt3,o,%mtcn1)
  %mtcmt3 = $replace(%mtcmt3,p,%mtcb1)
  %mtcmt3 = $replace(%mtcmt3,q,%mtcq1)
  %mtcmt3 = $replace(%mtcmt3,r,%mtcr3)
  %mtcmt3 = $replace(%mtcmt3,s,%mtca1)
  %mtcmt3 = $replace(%mtcmt3,t,%mtct2)
  %mtcmt3 = $replace(%mtcmt3,u,%mtcu1)
  %mtcmt3 = $replace(%mtcmt3,v,%mtcv3)
  %mtcmt3 = $replace(%mtcmt3,w,%mtcm3)
  %mtcmt3 = $replace(%mtcmt3,x,%mtcx3)
  %mtcmt3 = $replace(%mtcmt3,y,%mtcy3)
  %mtcmt3 = $replace(%mtcmt3,z,%mtct2)
  %mtcmt3 = $replace(%mtcmt3,+,%mtcpl3)
  %mtcmt3 = $replace(%mtcmt3,-,%mtcpl3)
  %mtcmt3 = $replace(%mtcmt3,_,%mtcpl1)
  %mtcmt3 = $replace(%mtcmt3,$chr(32),%mtcesp1 )
  %mtcmt3 = $replace(%mtcmt3,!,%mtcecl)
  %mtcmt3 = $replace(%mtcmt3,?,%mtcint3)
  %mtcmt3 = $replace(%mtcmt3,$chr(35),%mtcdie3)  
  %mtcmt3 = $replace(%mtcmt3,8,%mtco1)
  %mtcmt3 = $replace(%mtcmt3,',%mtcap3)  
  %mtcmt3 = $replace(%mtcmt3,=,%mtceg1)
  %mtcmt3 = $replace(%mtcmt3,$chr(40),%mtcpd1) 
  %mtcmt3 = $replace(%mtcmt3,$chr(41),%mtcpg1) 
  %mtcmt3 = $replace(%mtcmt3,:,%mtcdp1)
  %mtcmt3 = $replace(%mtcmt3,.,%mtcpo1)
  %mtcmt3 = $replace(%mtcmt3,/,%mtcsl3)
  %mtcmt3 = $replace(%mtcmt3,\,%mtcsl3)
  %mtcmt3 = $replace(%mtcmt3,%,%mtcpc3)

  %mtcmt4 = $replace(%mtcmt4,a,%mtcn1) 
  %mtcmt4 = $replace(%mtcmt4,à,%mtcn1) 
  %mtcmt4 = $replace(%mtcmt4,b,%mtcn1)  
  %mtcmt4 = $replace(%mtcmt4,c,%mtcn1)  
  %mtcmt4 = $replace(%mtcmt4,d,%mtcn1)
  %mtcmt4 = $replace(%mtcmt4,e,%mtce2)
  %mtcmt4 = $replace(%mtcmt4,é,%mtce2)
  %mtcmt4 = $replace(%mtcmt4,è,%mtce2)
  %mtcmt4 = $replace(%mtcmt4,ê,%mtce2)
  %mtcmt4 = $replace(%mtcmt4,f,%mtce2)
  %mtcmt4 = $replace(%mtcmt4,g,%mtcn1)
  %mtcmt4 = $replace(%mtcmt4,h,%mtcu1)
  %mtcmt4 = $replace(%mtcmt4,i,%mtci2)
  %mtcmt4 = $replace(%mtcmt4,j,%mtcn1)
  %mtcmt4 = $replace(%mtcmt4,k,%mtck2)
  %mtcmt4 = $replace(%mtcmt4,l,%mtcl)
  %mtcmt4 = $replace(%mtcmt4,m,%mtcu1)
  %mtcmt4 = $replace(%mtcmt4,n,%mtcg3)
  %mtcmt4 = $replace(%mtcmt4,o,%mtcn1)
  %mtcmt4 = $replace(%mtcmt4,p,%mtcs2)
  %mtcmt4 = $replace(%mtcmt4,q,%mtcq2)
  %mtcmt4 = $replace(%mtcmt4,r,%mtcr2)
  %mtcmt4 = $replace(%mtcmt4,s,%mtcj1)
  %mtcmt4 = $replace(%mtcmt4,t,%mtct2)
  %mtcmt4 = $replace(%mtcmt4,u,%mtcu1)
  %mtcmt4 = $replace(%mtcmt4,v,%mtcv4)  
  %mtcmt4 = $replace(%mtcmt4,w,%mtcm2)
  %mtcmt4 = $replace(%mtcmt4,x,%mtcx2) 
  %mtcmt4 = $replace(%mtcmt4,y,%mtcy4)
  %mtcmt4 = $replace(%mtcmt4,z,%mtcz4) 
  %mtcmt4 = $replace(%mtcmt4,+,%mtcpl2)
  %mtcmt4 = $replace(%mtcmt4,-,%mtcpl1)
  %mtcmt4 = $replace(%mtcmt4,_,%mtcpl1)
  %mtcmt4 = $replace(%mtcmt4,$chr(32),%mtcesp1 )
  %mtcmt4 = $replace(%mtcmt4,!,%mtcecl4)
  %mtcmt4 = $replace(%mtcmt4,?,%mtcint4)   
  %mtcmt4 = $replace(%mtcmt4,$chr(35),%mtcdie4)    
  %mtcmt4 = $replace(%mtcmt4,8,%mtcn1)
  %mtcmt4 = $replace(%mtcmt4,',%mtcap3)
  %mtcmt4 = $replace(%mtcmt4,=,%mtceg2)
  %mtcmt4 = $replace(%mtcmt4,$chr(40),%mtcpg2)
  %mtcmt4 = $replace(%mtcmt4,$chr(41),%mtcpd2)
  %mtcmt4 = $replace(%mtcmt4,:,%mtcdp2)
  %mtcmt4 = $replace(%mtcmt4,.,%mtcpo1)
  %mtcmt4 = $replace(%mtcmt4,/,%mtcbsl2)
  %mtcmt4 = $replace(%mtcmt4,%,%mtcpc4)
  %mtcmt4 = $replace(%mtcmt4,\,%mtcbsl4)

  %mtcmt5 = $replace(%mtcmt5,a,%mtcn1)  
  %mtcmt5 = $replace(%mtcmt5,à,%mtcn1)  
  %mtcmt5 = $replace(%mtcmt5,b,%mtcb1)  
  %mtcmt5 = $replace(%mtcmt5,c,%mtca1)
  %mtcmt5 = $replace(%mtcmt5,d,%mtcb1) 
  %mtcmt5 = $replace(%mtcmt5,e,%mtce1)
  %mtcmt5 = $replace(%mtcmt5,é,%mtce1)
  %mtcmt5 = $replace(%mtcmt5,è,%mtce1)
  %mtcmt5 = $replace(%mtcmt5,ê,%mtce1)
  %mtcmt5 = $replace(%mtcmt5,f,%mtce2)
  %mtcmt5 = $replace(%mtcmt5,g,%mtcg5)
  %mtcmt5 = $replace(%mtcmt5,h,%mtcu1)
  %mtcmt5 = $replace(%mtcmt5,i,%mtci1)
  %mtcmt5 = $replace(%mtcmt5,j,%mtca1)
  %mtcmt5 = $replace(%mtcmt5,k,%mtcn1)
  %mtcmt5 = $replace(%mtcmt5,l,%mtcl2)
  %mtcmt5 = $replace(%mtcmt5,m,%mtcu1)
  %mtcmt5 = $replace(%mtcmt5,n,%mtcn1)
  %mtcmt5 = $replace(%mtcmt5,o,%mtco1)
  %mtcmt5 = $replace(%mtcmt5,p,%mtcs2)  
  %mtcmt5 = $replace(%mtcmt5,q,%mtcq2)  
  %mtcmt5 = $replace(%mtcmt5,r,%mtcr2)
  %mtcmt5 = $replace(%mtcmt5,s,%mtcb1)
  %mtcmt5 = $replace(%mtcmt5,t,%mtct2)
  %mtcmt5 = $replace(%mtcmt5,u,%mtcu5)
  %mtcmt5 = $replace(%mtcmt5,v,%mtcsl3)
  %mtcmt5 = $replace(%mtcmt5,w,%mtcm1)  
  %mtcmt5 = $replace(%mtcmt5,x,%mtcx1)
  %mtcmt5 = $replace(%mtcmt5,y,%mtco1)  
  %mtcmt5 = $replace(%mtcmt5,z,%mtct1)  
  %mtcmt5 = $replace(%mtcmt5,+,%mtcpl1)
  %mtcmt5 = $replace(%mtcmt5,-,%mtcpl1)
  %mtcmt5 = $replace(%mtcmt5,_,%mtcpl3)
  %mtcmt5 = $replace(%mtcmt5,$chr(32),%mtcesp1 )
  %mtcmt5 = $replace(%mtcmt5,!,%mtcecl)
  %mtcmt5 = $replace(%mtcmt5,?,%mtcint5)
  %mtcmt5 = $replace(%mtcmt5,$chr(35),%mtcdie5)  
  %mtcmt5 = $replace(%mtcmt5,8,%mtco1)
  %mtcmt5 = $replace(%mtcmt5,',%mtcap3)
  %mtcmt5 = $replace(%mtcmt5,=,%mtceg1)
  %mtcmt5 = $replace(%mtcmt5,$chr(40),%mtcpg1) 
  %mtcmt5 = $replace(%mtcmt5,$chr(41),%mtcpd1) 
  %mtcmt5 = $replace(%mtcmt5,:,%mtcdp1)
  %mtcmt5 = $replace(%mtcmt5,/,%mtcbsl1)
  %mtcmt5 = $replace(%mtcmt5,.,%mtcpo5)
  %mtcmt5 = $replace(%mtcmt5,\,%mtcsl1)
  %mtcmt5 = $replace(%mtcmt5,%,%mtcpc5)
  say %mtcmt
  say %mtcmt2
  say %mtcmt3
  say %mtcmt4
  say %mtcmt5
}