moved source to A4.hs