procedure main()
    write(map("alphaBETA"))
    write(map("alphaBETA",&lcase,&ucase))
end