inherit "tomb.pike";
int main(){
    program p = compile_file("tomb.pike"); //class csak mutatok minden fuggvenyre osztalyra stb
    object progi = p();
    object rec = progi->record();
    object rec2 = p->record(); // record non-static konstans;
    //p->akarmi(); HIBA mert akarmi nem non-static konstans.
    progi->main();
    write("----------\n");
    write("program2.pike\n");
    write("------------\n");
    array(string) arr = indices(p); // visszaadja a p programban a konstansokat
    string elem;
    foreach (arr, elem)
        write(elem + "\n");
    progi->show_record(rec); 
    rec->name = "Britney";
    progi->show_record(rec2);
    function fun = progi["show_record"]; // function mutato tipus, ha indexelunk ra
    fun(rec);
    //array(p->record) records; p->record itt local variable, nem konstans
    //----------innentol inherit miatt-------------------//
    array(record) records2;
    ::add_empty_record(); //eredeti mint C++ban, de felul lehetne irni
    return 0;

}