<>=~s/./$n+=$&/ger;$n%=3;$n+=$&+$n&1&&3; <>=~/.$/; print+(4,2,8,5,7,1)[$n**($&|2)%6];