write program4