added ex1801.rb