Code
find ./ -maxdepth 1 -type d -name "*al" | awk '{print "mv "$0" "gensub(".d", "", $0)" "}'
If the output looks alright then append | sh to the end of the command:
Code
find ./ -maxdepth 1 -type d -name "*al" | awk '{print "mv "$0" "gensub(".d", "", $0)" "}' | sh