gistfile1.txt

let quad_eq a b c =
    let eq = b * b - 4 * a * c in
    let ret = begin
      if  eq > 0 then
        2
      else if eq = 0 then
        1
      else
        0
    end in
    print_int ret;
    ret
  ;;
 quad_eq 1 2 3