let option_as_list = function
    | Some(v) -> [v]
    | _ -> []