$use Box StdIO;

$box B;

$const C = &B;

$func Main = e;
Main =
  <Store &B XXX>,
  <PrintLn <Get &C>>,
  <Store &C YYY>,
  <PrintLn <Get &B>>;