Create Philosop

function contained in package PhilQuote