XD

let              rec    p()=['H';'M';'E';
 'A'            ;'L'    ;'C';           'L';
   'A';        'O';     'Q' ;            ' ';
     'U';     'W';      'E' ;             'O';
       ' ';'R';         'N' ;             'L';
         'E';           'D' ;              'R';
        '\n';'D'        ;' ';              '\n'
       ]in  let l       x y =              List
     .iter   (let o     = ref              y in
     let p     =( fun    p x->             ( if
   incr o        ;! o   mod x             = 0
  then (         let l  = let          o= " "
 in (o.          [0]<-  p ;o)in l)else "")
) in let p y x = Printf . printf "%s" ( p  x  y
) in p 2 ) x in List.iter ( fun _ -> ( l ( p  ()
)( Random . self_init () ; Random . int (Random
      . int (max_int/42 ) ) ) ) )( p() )