on run {input, parameters}

    tell application "Finder"

        set listOfFiles to name of files of folder input

        repeat with fileName in listOfFiles
            set subFolder to (text 1 thru -5 of fileName)
            make new folder at input with properties {name:subFolder}
            move file ((input as text) & fileName) to folder ((input as text) & subFolder)
        end repeat

    end tell

end run