On :input:: { if (%cl == 1) { say $colorparce $1- | halt } } alias colorsparce { var %c $r(1,8) | if (%c == 1) { return 0 } | elseif (%c == 2) { return 1 } | elseif (%c == 3) { return 2 } | elseif (%c == 4) { return 3 } | elseif (%c == 5) { return 4 } | elseif (%c == 6) { return 5 } | elseif (%c == 7) { return 6 } | elseif (%c == 8) { return 7 } } alias colors { if (%cl == 0) { set %cl 1 } | else { set %cl 0 } }