tclf.c simplified to f.c