############################################################################
#
#	File:     lcfile.icn
#
#	Subject:  Program to convert file names to lowercase
#
#	Author:   Ralph E. Griswold
#
#	Date:     June 11, 2001
#
############################################################################
#
#   This file is in the public domain.
#
############################################################################
#
#  This program converts file names to lowercase letters.  File names to
#  convert are given in standard input.
#
############################################################################
#
#  Requires:  UNIX
#
############################################################################

procedure main()
   local name

   while name := read() do
      system("mv " || name || " " || map(name))

end