added ex1401.rb