expr: 3*(x-1)$

define(myF(x),expr)$

stringout("/Users/macbookpro/Desktop/d_myF.txt",functions);