MAPLE subroutines for computing Milnor and Tyurina numbers of hypersurface singularities with application to Arnol'd adjacencies