(* expressions *)

max 20 12;;

max 30 12 * 2;;

max 30 (12 * 2);;

sqrt (max (cos 3.1415) (sin 3.1415));;

sqrt max (cos 3.1415) (sin 3.1415);;

2 * (1 + 3);;

(+) 5 2;;

( * ) 5 2;;

2.2 +. (float_of_int 4);;

string_of_int 12;;

int_of_string "134";;

int_of_string "bonjour";;



(* let in *)  

let x = 10 and y=20 in 
  let x = x+y and y = x+1 in 
     x + y;;

let x = 10 in 
  match x with
    0 -> "vaut 0"
    | 1 -> "vaut 1"
    | y when y <0 -> (string_of_int y)^" est négatif"
    | y -> (string_of_int y)^" est positif et pas 0,1";;

let x = 1 in 
  match x with
    0 -> "vaut 0"
    | 1 -> "vaut 1"
    | y when y <0 -> (string_of_int y)^" est négatif"
    | y -> (string_of_int y)^" est positif et pas 0,1";;


(* requete de definition let *)    
let x = 10;;

let y = x +3;;

x;;

let x = "bonjour";;

x;;