How to make function can be strictly evaluated in the hugs98 ?