data _null_;
      array buchstabe (12) $ 1 ("M","!","a","C","e","h","i","m","r","s","t","y");
      array zahl (15) (1,5,9,9,12,4,6,9,7,10,11,8,3,10,2);
      length solution $ 15;
      do i=1 upto dim(b);
            solution=cats(solution,buchstabe(zahl(i)));
      end;
      put solution=;
run;