extern fint flist_c(fchar,fchar);