(seq (ignore (let (x = [0: 13 37]) (makeblock 0 x)))
  (let
    (A =
       (apply (field_imm 0 (global CamlinternalMod!))
         [0: "anonymous.ml" 25 6] [0: [0]])
     B =
       (apply (field_imm 0 (global CamlinternalMod!))
         [0: "anonymous.ml" 35 6] [0: [0]]))
    (seq (ignore (let (x = [0: 4 2]) (makeblock 0 x)))
      (apply (field_imm 1 (global CamlinternalMod!)) [0: [0]] A A)
      (apply (field_imm 1 (global CamlinternalMod!)) [0: [0]] B
        (let (x = [0: "foo" "bar"]) (makeblock 0)))
      (let (f = (function param : int 0) s = (makemutable 0 ""))
        (seq
          (ignore
            (let (*match* = (setfield_ptr 0 s "Hello World!")) (makeblock 0)))
          (let
            (drop = (function param : int 0)
             *match* = (apply drop (field_mut 0 s)))
            (makeblock 0 A B f s drop)))))))