#define n_a(s,i) ('s'//numbers(i:i)//'\0')

         character*10 numbers
         numbers = '1234567890'

         print*,n_a(other,4)

         stop
         end
   
