procedure main()
every|write(map(read(),&lcase,&ucase)|map(read()))
end