Added fahr.c version with for