(putl (setq B (new (val A))) (getl A))