$H = int($C - ($C / 4) - ((8*$C+13) / 25) + 19*$G + 15) % 30;