procedure WhatThe;
begin
  write('Paste Bin? Or Pastie? See Logo.');
end;

function WhatIsPastie: string;
begin
  result:= 'ask a lady';
end;