val weirdapp =
  if x = 3 then 1 else 2
    4
    5
    6
  12345 = 456678
    4 7
    5
    6

val x =
  if x = 3 then
    print 3
  toto
    if x = 2 then
      toto
    else
      arf
    coucou
    toto
  if x = 3 then print 3
  tata
    plop 4 5 6
      match y with
        5 ->
          match truc with
            7 ->
              arf
            x ->
              bla
        6 ->
          print 6
          erf
      match
        y
      with
        5 ->
          arf
        6 ->
          print 6
          erf
      if
        z
      then
        if t then 3
        else
          if u
          then 4
          else 1
      else 2
      bloup
  tutu
    x y z
    seq
      for i = 1 to 10 do
        print 1 2
          match truc with 1 -> 2 | 2 -> 3 | 3 -> 4
          match truc with | 5 -> 2 | 6 -> 3 | 7 -> 4
      42
    t u

val nestedif =
  if if 1 = 2 then 3 else 4 then 5 else 6
  if 1 then if 2 = 3 then 4 else 5 else 6
  if 1 then 2 else if 3 = 4 then 5 else 6

val nestedifbis =
  if if 1 = 2 then 3 then 5 else 6
  if 1 then if 2 = 3 then 4 else 6
  if 1 then 2 else if 3 = 4 then 5

val y =
  1; 3; 4
    toto
    arf

val ifthen =
  if a then b

  if a then
    b

  if a
  then b

  if a
  then
    b

  if
    a
  then b

  if
    a
  then
    b

val ifthenelse =
  if a then b else c

  if a then b else
    c

  if a then b
  else c

  if a then b
  else
    c

  if a then
    b
  else c

  if a then
    b
  else
    c

  if a
  then b else c

  if a
  then b else
    c

  if a
  then b
  else c

  if a
  then b
  else
    c

  if a
  then
    b
  else c

  if a
  then
    b
  else
    c

  if
    a
  then b else c

  if
    a
  then b else
    c

  if
    a
  then b
  else c

  if
    a
  then b
  else
    c

  if
    a
  then
    b
  else c

  if
    a
  then
    b
  else
    c

val letin =
  print "debut"
  let toto = arf
  let tata = truc
  print "plop"
  let tutu =
    coucou
      les
      amis
    comment
      ca
      va
  print "fin"
  print
    let x = "toto" in x
    let y = "tata" in y
  print
    let x = "toto" in
      x
    let y =
      "tata"
    in
      y
    let z =
      "tutu"
    in z
  let truc = 3 in 6
    blabla
  let truc =
    3
  in 6
    blabla
  let plop = 5
  in 7