program()
var
  c: ^Char
  b: ^Word8

begin
  b := cast(c: ^Word8);
  c := cast(b: ^Char)
end.