#define n_a(s,i) ('s'//numbers(i:i)//'\0') character*10 numbers numbers = '1234567890' print*,n_a(other,4) stop end