─( 16:26:41 )─< command 10 >───────────────────────────────────────────────────────────────────────────────────────────{ counter: 0 }─
utop # let foo b s1 s2 =
  if b then
    let s1 = (fun s1 -> s1) s1 in
    print_endline s1 ;
  print_endline s2
;;
val foo : bool -> string -> string -> unit = <fun>
─( 16:26:44 )─< command 11 >───────────────────────────────────────────────────────────────────────────────────────────{ counter: 0 }─
utop # foo false "foo" "bar" ;;
- : unit = ()
─( 16:27:10 )─< command 12 >───────────────────────────────────────────────────────────────────────────────────────────{ counter: 0 }─
utop # foo true "foo" "bar" ;;
foo
bar
- : unit = ()