new file:   ass4/Visitor.hs