An Algorithm for Optimally Fitting a Wiener Model. (8th December 2011)