(* This is an OCaml editor.
   Enter your program here and send it to the toplevel using the "Eval code"
   button or [Ctrl-e]. *)

1+1;;
1+2*3;;

let add x y = x+y;;

add 3 4;;

add (2+1) (2*2);;

let hypotenuse x y = 
  let xsquared = x*x in
  let ysquared = y*y in
  (xsquared + ysquared);;

hypotenuse 3 4;;

if 3<4 then (add 1 2) else (add 5 6);;

true;;
true && false;;
false || false;;
not true;;

"foo";;
"foo" ^ "bar";;

let rec factorial n =
  if n <= 1 then 1 else n*(factorial (n-1));;

type color = Red | Blue | Dark of color | Light of color;;

Dark (Dark Red);;