modify teststoch2.hs by yokozawa