modified:   ass4/Visitor.hs