write program1