if ! -w $1.c cp $1.f $1.c
