Automator Help (Creating a folder structure)

set root to choose folder with prompt "Select the directory where you want the folder structure built."
tell application "Finder"
set rootName to "APC00150"
set mainfolder to make new folder at root with properties {name:rootName & "00"}
repeat with i from 10 to 100 by 10
set child1 to make new folder at mainfolder with properties {name:rootName & (i as string)}
repeat with j from 1 to 9
make new folder at child1 with properties {name:rootName & ((i + j) as string)}
end repeat
end repeat
end tell

set root to choose folder with prompt "Select the directory where you want the folder structure built."
tell application "Finder"
set rootName to "APC00150"
set mainfolder to make new folder at root with properties {name:rootName & "00"}
repeat with i from 10 to 90 by 10
set child1 to make new folder at mainfolder with properties {name:rootName & (i as string)}
repeat with j from 1 to 9
make new folder at child1 with properties {name:rootName & ((i + j) as string)}
end repeat
end repeat
end tell

try
set root to choose folder with prompt "Select the directory where you want the folder structure built."
on error
return
end try

try
set level1Base to text returned of (display dialog "Enter Level 1 Start Number" default answer 10)
on error
return
end try

try
set level1Incr to text returned of (display dialog "Enter Level 1 Increment" default answer 10)
on error
return
end try

try
set level2Base to text returned of (display dialog "Enter Level 2 Start Number" default answer 1)
on error
return
end try

try
set level2Incr to text returned of (display dialog "Enter Level 2 Increment" default answer 1)
on error
return
end try

tell application "Finder"
try
set rootName to text returned of (display dialog "Enter Name of Root Folder" default answer "")
on error
return
end try
if ":" is in rootName then
set AppleScript's text item delimiters to ":"
set wordList to words of (rootName as text)
set AppleScript's text item delimiters to ""
set rootName to (wordList as text)
end if
set mainfolder to make new folder at root with properties {name:rootName}
repeat with i from level1Base to (10 * level1Base) by level1Incr
set child1 to make new folder at mainfolder with properties {name:rootName & (i as string)}
repeat with j from level2Base to (9 * level2Base) by level2Incr
make new folder at child1 with properties {name:rootName & ((i + j) as string)}
end repeat
end repeat
end tell
display dialog "All done."