procedure main()
write(&ucase)
end