procedure main()
   min := max := read()	# initial min and max
   while line := read() do
      if line >> max then max := line
      else if line << min then min := line
   write("lexically largest line is: ",max)
   write("lexically smallest line is: ",min)
end