How to move files to directories by first letters

for x in {A..Z}; do mkdir ${x} && mv ${x}* ${x}/; done