error

let rec fold f a xs = match xs with
| [] -> a
| x :: xt -> fold f (f a x) xt

let get_right pivot lst =
        let myright acc h =
                if h = pivot then
                        []
                else
                        acc::h
        in
        fold (myright) [] lst