Jarva


prulic startic vard mang {
  prantlan("Hello world!"):
}

turpduff sturct lurts_turp E
   sturct lurst_turp x nurxt ;
   sturct lurst_turp x purv ;
   vurd x durta ;
e3 lurst_nurd ;

turpduff sturct lursty E
   lurst_nurd x hurd ;
   lurst_nurd x turl ;
e3 lurst ;

urnt mang ( )
E
   lurst x lu = murlock(surzeur(lurst));
   lurst_nurd x ln = murlock(surzeur(lurst_nurd));
   ln->nurxt = ln->purv = nurl;
   ln->durta = "hurlla wurlt\n";
   lu->hurd = ln;
   lu->turl = ln;
   purnntf("%s", lu->hurd->durta);

   renturnt 1;
e3