let rec traduit_int c =                                                                                                                                                                                                                       
  if c = 0                                                                                                                                                                                                                                    
  then ""                                                                                                                                                                                                                                     
  else                                                                                                                                                                                                                                        
    if c > 0                                                                                                                                                                                                                                  
    then                                                                                                                                                                                                                                      
      if c < 16                                                                                                                                                                                                                               
      then "+"^(traduit_int (c-1))                                                                                                                                                                                                            
      else "<[-]++++[->++++<]>"^traduit_int (c-16)                                                                                                                                                                                            
    else                                                                                                                                                                                                                                      
      if c < -16                                                                                                                                                                                                                              
      then "<[-]++++[->----<]>"^traduit_int (c+16)                                                                                                                                                                                            
      else  ("-"^(traduit_int (c+1)))                                                                                                                                                                                                         
                                                                                                                                                                                                                                              
                                                                                                                                                                                                                                              
let traduit s =                                                                                                                                                                                                                               
  let rec foo i prec =                                                                                                                                                                                                                        
    if i < string_length s                                                                                                                                                                                                                    
    then (traduit_int (int_of_char s.[i] - prec ))^"."^(foo (i+1) (int_of_char s.[i]))                                                                                                                                                        
    else ""                                                                                                                                                                                                                                   
  in                                                                                                                                                                                                                                          
  ">>>>"^foo 0 0        

let c1 = traduit "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~°~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~               \n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~°~~~~~~~~~~~~~~~~~~~~~~~~~~~~(~~~~~~    \nO~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~(((((~~~~~~~~((~~~~~~   		\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!~~~~~~~~~~~~~~~~~°~~~~~~~((O(((((((((~~~((((~~~~~~		\n~~O~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~(((((((((((((((((((((~~~~~~          \n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~°~~~~((((((((((((~~~((((~~~~~~\n~~~~O~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~(((((~~~~~~~~((~~~~~~\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~(~~~~~~\n~~~~~~O~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n~~~~~~~O~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~((~~~~~~~~~~~~~~~~~~~~~~~~~\n~~~~~~~~~~~~~~~~~~~~~~~~((((((((((~~~~~~~~~~~~~~~~~~~~~~~~~~~~((((~~~~~~~~~~~~~~~~~~~~~~~~~			\n~~~~~~~O~~~~~~~~~~~~~((((((((((((((((~~~~~~~~~~~~~~~~~~~~~~~((((((~~~~~~~~~~~~~~~~~~~~~~~~~		\n~~~~~~~~~~~~~~~~~~(((((((((((((((((((((~~~~~~~~~~~~~~~~~~~((((((((~~~~~~~~~~~~~~~~~~~~~~~~~\n~~~~~~~~O~~~~~~~(((((O(((((((((((((((((((((((((~~~~~~~~~((((((((((~~~~~~~~~~~~~~~~~~~~~~~~~			\n~~~~~~~~~~~~~~~(((((((((((((((((((((((((((((((((((~~~(((((((((((((~~~~~~~~~~~~~~~~~~~~~~~~~			\n~~~~~~~~O~~~~~(((((((((   ((((((((((((((((((((((((((((((((((((((((~~~~~~~~~~~~~~~~~~~~~~~~~\n~~~~~~~~~~O~~~~((((((   ((((((((((((((((((((((((((~~~~~~((((((((((~~~~~~~~~~~~~~~~~~~~~~~~~			\n~~~~~~~~~~~~O~~~       ((((((((((((((((((((((((~~~~~~~~~~~((((((((~~~~~~~~~~~~~~~~~~~~~~~~~\n~~~~~~~~~~~~~~~~~~(((((((((((((((((((((~~~~~~~~~~~~~~~~~~~~~((((((~~~~~~~~~~~~~~~~~~~~~~~~~\n~~~~~~~~~~~~~~~~~~~~~((((((((((((((((~~~~~~~~~~~~~~~~~~~~~~~~~~(((~~~~~~~~~~~~~~~~~~~~~~~~~\n~~~~~~~~~~~~~~~~~~~~~~~~((((((((((~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~((~~~~~~~~~~~~~~~~~~~~~~~~~\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~			\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"

let c2 = traduit 
"                            . \n                            A      ; \n                  |   ,--,-/ \---,-/|  , \n                 _|\,'. /|      /|   `/|-. \n             \`.'    /|      ,            `;. \n            ,'\   A     A         A   A _ /| `.; \n          ,/  _              A       _  / _   /|  ; \n         /\  / \   ,  ,           A  /    /     `/| \n        /_| | _ \         ,     ,             ,/  \ \n       // | |/ `.\  ,-      ,       ,   ,/ ,/      \/ \n       / @| |@  / /'   \  \      ,              >  /|    ,--. \n      |\_/   \_/ /      |  |           ,  ,/        \  ./' __:.. \n      |  __ __  |       |  | .--.  ,         >  >   |-'   /     ` \n    ,/| /  '  \ |       |  |     \      ,           |    /     \n   /  |<--.__,->|       |  | .    `.        >  >    /   (      \n  /_,' \\  ^  /  \     /  /   `.    >--            /^\   |     \n        \\___/    \   /  /      \__'     \   \   \/   \  |     \n         `.   |/          ,  ,                  /`\    \  )    \n           \  '  |/    ,       V    \          /        `-\    \n             `|/  '  V      V           \    \.'            \_  \n             '`-.       V       V        \./'\                 \n                 `|/-.      \ /   \ /,---`\                    \n                  /   `._____V_____V'                          \n                             '     '                           \n         (~ _   | _  _  _     _  _  _|  _|_|_  _  _ |  _       \n         _)(_)  |(_)| |(_|,  (_|| |(_|   | | |(_|| ||<_\       \n                        _|           _                         \n         |` _  _   _ ||  _|_|_  _   |_ '  _  |_                \n        ~|~(_)|   (_|||   | | |(/_  |  | _\  | |               \n"