begin
  integer I
  routine R
  end
  routine RP(integer I)
  end
  integerarray IA(1:2)
  integermap IM
    result == I
  end
  integermap IMP(integer N)
    result == IA(N)
  end
  integername IN
  
  R
  comment R
  RP(42)
  comment RP(42)
  IA(53) = I
  comment IA(53) = I
  I = IA(64)
  comment I = IA(64)
  IN == IM
  comment IN == IM
  IN == IMP(1)
  comment IN == IMP(1)
  IN == I
  comment IN == I
  IN = I
  comment IN = I
  IM = I
  comment IM = I
  IMP(2) = I
  comment IMP(2) = I

endofprogram