subroutine fairy_synchronize (level)

 implicit none
 integer, intent (in) :: level
 write (*, '(a)', advance='no') "Heyo Fortran!"

end subroutine fairy_synchronize