begin 
owninteger  i1=2,i2=3
ownshort    s1=1,s2=2
ownhalf     h1=1,h2=2
!%owninteger(0:65534) h1=1,h2=2
ownbyte     b1=1,b2=2
ownmite     m1=1,m2=2
!%owninteger(-128:126) m1=1,m2=2
  i1 = i1
  i1 = s1
  i1 = h1
  i1 = b1
  i1 = m1

  s1 = i2
  s1 = s2
  s1 = h2
  s1 = b2
  s1 = m2

  h1 = i1
  h1 = s1
  h1 = h1
  h1 = b1
  h1 = m1

  b1 = i2
  b1 = s2
  b1 = h2
  b1 = b2
  b1 = m2

  m1 = i1
  m1 = s1
  m1 = h1
  m1 = b1
  m1 = m1
endofprogram