Greet with o/

ocaml/evaluate.ml

@@ -25,8 +25,11 @@ let remove_spaces str =
 let evaluate str =
   match str with
   | str when is_url str ->
+    begin
       let title = SimpleHttp.get_http_title (SimpleHttp.get_body str) |> remove_spaces in
       match title with
       | Some t -> Some ("[ " ^ t ^ " ]")
       | None -> None
+    end
+  | "o/" -> Some "o/"
   | _ -> None