let fibonacci n=
    let rec fibona (n,x,y)=
        match n with
        | 0 -> x
        | 1 -> y
        | _ -> fibona((n-1),y,(x+y))
        in fibona(n,0,1);;