let rec read_char = 
  let s = ref "" in
  fun () -> 
    if !s = ""
    then (s := read_line () ; read_char ()) 
    else 
      (let c = !s.[0] in
      s := sub_string (!s) 1 (string_length (!s)-1) ;
      c)

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 c = 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 c = 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