use warnings;
use strict;
use feature 'say';

use constant STEPPER_SEQUENCE => [
        [qw(1 0 0 1)],
        [qw(1 0 0 0)],
        [qw(1 1 0 0)],
        [qw(0 1 0 0)],
        [qw(0 1 1 0)],
        [qw(0 0 1 0)],
        [qw(0 0 1 1)],
        [qw(0 0 0 1)],
    ];

use constant STEP_COUNT => 0+@{ STEPPER_SEQUENCE() };

say STEP_COUNT;