$e=sub { chr($_[0] ) };