let make_classifier ins outs hidden =
   let transfers = Sigmoid :: (List.rev_map (fun _ -> Sigmoid) hidden) in
   make_net ins outs hidden transfers