printf => showFFloat. Now waugh_neural fails with
Fail: Prelude.(!!): negative index,
but that's better than before. :-)
> import BpGen
> import ReadLists (readWhiteList)
-> import {-fool mkdependHS-}
-> Printf
+> import Numeric(showFFloat)
-------------------------------------------------------------------------------
| Constant Values |
-------------------------------------------------------------------------------
> showdouble :: Double -> ShowS
-> showdouble v = showString (printf "%6.4f " [UDouble v])
+> showdouble = showFFloat (Just 4)
> showdoubles :: [Double] -> ShowS
> showdoubles [] = showString ""