character(1),parameter :: TAB=achar(9)