type state =
    {
      mutable prev_v: string;
    }

val init : string -> state
val encrypt : state -> (string -> string) -> string -> string
val decrypt : state -> (string -> string) -> string -> string