Create program 14.1