Ekon.hs : some work on myProg