perl -e 'print( ($ARGV[1] - $ARGV[0] + 4) % 24 <= 8, "\n")'