procedure WhatThe; begin write('Paste Bin? Or Pastie? See Logo.'); end; function WhatIsPastie: string; begin result:= 'ask a lady'; end;