functor (M : Cryptsystem_64.T->
  sig
    type key = M.key
    val encrypt_cbc :
      key ->
      int * int * int * int -> string -> (int * int * int * int) * string
    val decrypt_cbc :
      key ->
      int * int * int * int -> string -> (int * int * int * int) * string
    val encrypt_cfb8 :
      key ->
      int * int * int * int -> string -> (int * int * int * int) * string
    val decrypt_cfb8 :
      key ->
      int * int * int * int -> string -> (int * int * int * int) * string
    val encrypt_cfb64 :
      key ->
      int * int * int * int ->
      int -> string -> (int * int * int * int) * int * string
    val decrypt_cfb64 :
      key ->
      int * int * int * int ->
      int -> string -> (int * int * int * int) * int * string
    val crypt_ofb :
      key ->
      int * int * int * int ->
      int -> string -> (int * int * int * int) * int * string
  end