Stuff

module Hasplot whereimport Text.PrintffuncArgs start end points =         let step = (end - start) / ( points - 2)::Float        in          [start, (start + step) .. end]funcTable f [] = []funcTable f (x:xs) = (x, f x) : funcTable f xspair2str (x,y) = printf "%.05f %.05f" x yfunc2table x = unlines ( map pair2str x)main fileName func args = do    writeFile fileName (func2table $ funcTable func args)