AppleScript or Swift: create a subfolder inside of a folder

Use the following:

tell application "Finder"

set theFolder to (choose folder)

set theName to (text returned of (display dialog "Choose a name" default answer ""))

set theFolder to make folder with properties {name:theName} at theFolder

make folder at theFolder with properties {name:"Folder One"}

make folder at theFolder with properties {name:"Folder Two"}

make folder at theFolder with properties {name:"Folder Three"}

make folder at theFolder with properties {name:"Folder Four"}

make folder at theFolder with properties {name:"Folder Five"}

make folder at folder "Folder One" of theFolder with properties {name:do shell script "date \"+%m%y\""}

make folder at folder "Folder Three" of theFolder with properties {name:"Sub folder three"}

make folder at folder "Folder Four" of theFolder with properties {name:"Sub folder four"}

make folder at folder "Folder Five" of theFolder with properties {name:"Sub folder five"}

end tell

(212003)