get_data :- see(towary), read_rec, seen.

read_rec :- read([A, B, C]), assertz(wyrob(A, B, C)), read_rec.

read_rec.