%begin
  %integer fred
  %if 'a' <= fred <= 'z' %then fred = 1
  fred = 2
%endofprogram