a:-get0(X),(X=10;put(X),a).
m:-prompt1(''),put(34),a,put(34).