program fjf633c;

uses fjf633v;

type
  bar = b .. h;
  baz = c .. f;
  qux = d .. e;

var
  vfoo: foo = c;
  vqux: qux;

begin
  vqux := vfoo;
  if vfoo = vqux then WriteLn ('OK') else WriteLn ('failed')
end.
