Disabled, but:
Smalltalk allClasses do: [:each | each fileOut]
This should upload three million .st files named after each class in the system.
Welcome and happy little talking!
EDIT: It seems like this would not work in the early violins, I tested them and it looks like this to work in the Scratch source image:
SystemOrganization categories do: [:each | SystemOrganization fileOutCategory: each]
source share