let make_approximator ins outs hidden =
   let transfers = List.rev_map (fun _ -> Sigmoid) hidden in
   make_net ins outs hidden (transfers @ [Linear])