refactoring: hs_test015a.hs