#!/usr/bin/env /friends/bin/fortranscript
program fizzbuzz
   integer :: i
   i = 0
   if (i == 0) then; print *, i; end if
   i = i + 1
   print *, i
end program fizzbuzz