1 -- with varint; use varint; 2 3 package horse is 4 5 -- Rubbish -- 6 procedure Tst; 7 8 private 9 10 11 end horse;