modified:   Ahedge.hs