modified:   genSamples.hs