[@Mir2m2λϵͳݶȡ]
{
#IF
CHECK [0] 0
#ACT
CALCVAR HUMAN λ = 0
MOV P1 536870912

#IF
CHECK $(λϵͳռ30) 1
#ACT
CALCVAR HUMAN λ + <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
CHECK $(λϵͳռ29) 1
#ACT
CALCVAR HUMAN λ + <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
CHECK $(λϵͳռ28) 1
#ACT
CALCVAR HUMAN λ + <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
CHECK $(λϵͳռ27) 1
#ACT
CALCVAR HUMAN λ + <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
CHECK $(λϵͳռ26) 1
#ACT
CALCVAR HUMAN λ + <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
CHECK $(λϵͳռ25) 1
#ACT
CALCVAR HUMAN λ + <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
CHECK $(λϵͳռ24) 1
#ACT
CALCVAR HUMAN λ + <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
CHECK $(λϵͳռ23) 1
#ACT
CALCVAR HUMAN λ + <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
CHECK $(λϵͳռ22) 1
#ACT
CALCVAR HUMAN λ + <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
CHECK $(λϵͳռ21) 1
#ACT
CALCVAR HUMAN λ + <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
CHECK $(λϵͳռ20) 1
#ACT
CALCVAR HUMAN λ + <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
CHECK $(λϵͳռ19) 1
#ACT
CALCVAR HUMAN λ + <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
CHECK $(λϵͳռ18) 1
#ACT
CALCVAR HUMAN λ + <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
CHECK $(λϵͳռ17) 1
#ACT
CALCVAR HUMAN λ + <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
CHECK $(λϵͳռ16) 1
#ACT
CALCVAR HUMAN λ + <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
CHECK $(λϵͳռ15) 1
#ACT
CALCVAR HUMAN λ + <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
CHECK $(λϵͳռ14) 1
#ACT
CALCVAR HUMAN λ + <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
CHECK $(λϵͳռ13) 1
#ACT
CALCVAR HUMAN λ + <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
CHECK $(λϵͳռ12) 1
#ACT
CALCVAR HUMAN λ + <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
CHECK $(λϵͳռ11) 1
#ACT
CALCVAR HUMAN λ + <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
CHECK $(λϵͳռ10) 1
#ACT
CALCVAR HUMAN λ + <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
CHECK $(λϵͳռ9) 1
#ACT
CALCVAR HUMAN λ + <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
CHECK $(λϵͳռ8) 1
#ACT
CALCVAR HUMAN λ + <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
CHECK $(λϵͳռ7) 1
#ACT
CALCVAR HUMAN λ + <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
CHECK $(λϵͳռ6) 1
#ACT
CALCVAR HUMAN λ + <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
CHECK $(λϵͳռ5) 1
#ACT
CALCVAR HUMAN λ + <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
CHECK $(λϵͳռ4) 1
#ACT
CALCVAR HUMAN λ + <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
CHECK $(λϵͳռ3) 1
#ACT
CALCVAR HUMAN λ + <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
CHECK $(λϵͳռ2) 1
#ACT
CALCVAR HUMAN λ + <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
CHECK $(λϵͳռ1) 1
#ACT
CALCVAR HUMAN λ + <$STR(P1)>

[@Mir2m2λϵͳݱ]
#IF
CHECK [0] 0
#ACT
MOV P0 <$HUMAN(λ)>
MOV P1 536870912

#IF
SMALL P0 <$STR(P1)>
#ACT
SET $(λϵͳռ30) 0
#ELSEACT
SET $(λϵͳռ30) 1
DEC P0 <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
SMALL P0 <$STR(P1)>
#ACT
SET $(λϵͳռ29) 0
#ELSEACT
SET $(λϵͳռ29) 1
DEC P0 <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
SMALL P0 <$STR(P1)>
#ACT
SET $(λϵͳռ28) 0
#ELSEACT
SET $(λϵͳռ28) 1
DEC P0 <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
SMALL P0 <$STR(P1)>
#ACT
SET $(λϵͳռ27) 0
#ELSEACT
SET $(λϵͳռ27) 1
DEC P0 <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
SMALL P0 <$STR(P1)>
#ACT
SET $(λϵͳռ26) 0
#ELSEACT
SET $(λϵͳռ26) 1
DEC P0 <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
SMALL P0 <$STR(P1)>
#ACT
SET $(λϵͳռ25) 0
#ELSEACT
SET $(λϵͳռ25) 1
DEC P0 <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
SMALL P0 <$STR(P1)>
#ACT
SET $(λϵͳռ24) 0
#ELSEACT
SET $(λϵͳռ24) 1
DEC P0 <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
SMALL P0 <$STR(P1)>
#ACT
SET $(λϵͳռ23) 0
#ELSEACT
SET $(λϵͳռ23) 1
DEC P0 <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
SMALL P0 <$STR(P1)>
#ACT
SET $(λϵͳռ22) 0
#ELSEACT
SET $(λϵͳռ22) 1
DEC P0 <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
SMALL P0 <$STR(P1)>
#ACT
SET $(λϵͳռ21) 0
#ELSEACT
SET $(λϵͳռ21) 1
DEC P0 <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
SMALL P0 <$STR(P1)>
#ACT
SET $(λϵͳռ20) 0
#ELSEACT
SET $(λϵͳռ20) 1
DEC P0 <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
SMALL P0 <$STR(P1)>
#ACT
SET $(λϵͳռ19) 0
#ELSEACT
SET $(λϵͳռ19) 1
DEC P0 <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
SMALL P0 <$STR(P1)>
#ACT
SET $(λϵͳռ18) 0
#ELSEACT
SET $(λϵͳռ18) 1
DEC P0 <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
SMALL P0 <$STR(P1)>
#ACT
SET $(λϵͳռ17) 0
#ELSEACT
SET $(λϵͳռ17) 1
DEC P0 <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
SMALL P0 <$STR(P1)>
#ACT
SET $(λϵͳռ16) 0
#ELSEACT
SET $(λϵͳռ16) 1
DEC P0 <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
SMALL P0 <$STR(P1)>
#ACT
SET $(λϵͳռ15) 0
#ELSEACT
SET $(λϵͳռ15) 1
DEC P0 <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
SMALL P0 <$STR(P1)>
#ACT
SET $(λϵͳռ14) 0
#ELSEACT
SET $(λϵͳռ14) 1
DEC P0 <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
SMALL P0 <$STR(P1)>
#ACT
SET $(λϵͳռ13) 0
#ELSEACT
SET $(λϵͳռ13) 1
DEC P0 <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
SMALL P0 <$STR(P1)>
#ACT
SET $(λϵͳռ12) 0
#ELSEACT
SET $(λϵͳռ12) 1
DEC P0 <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
SMALL P0 <$STR(P1)>
#ACT
SET $(λϵͳռ11) 0
#ELSEACT
SET $(λϵͳռ11) 1
DEC P0 <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
SMALL P0 <$STR(P1)>
#ACT
SET $(λϵͳռ10) 0
#ELSEACT
SET $(λϵͳռ10) 1
DEC P0 <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
SMALL P0 <$STR(P1)>
#ACT
SET $(λϵͳռ9) 0
#ELSEACT
SET $(λϵͳռ9) 1
DEC P0 <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
SMALL P0 <$STR(P1)>
#ACT
SET $(λϵͳռ8) 0
#ELSEACT
SET $(λϵͳռ8) 1
DEC P0 <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
SMALL P0 <$STR(P1)>
#ACT
SET $(λϵͳռ7) 0
#ELSEACT
SET $(λϵͳռ7) 1
DEC P0 <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
SMALL P0 <$STR(P1)>
#ACT
SET $(λϵͳռ6) 0
#ELSEACT
SET $(λϵͳռ6) 1
DEC P0 <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
SMALL P0 <$STR(P1)>
#ACT
SET $(λϵͳռ5) 0
#ELSEACT
SET $(λϵͳռ5) 1
DEC P0 <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
SMALL P0 <$STR(P1)>
#ACT
SET $(λϵͳռ4) 0
#ELSEACT
SET $(λϵͳռ4) 1
DEC P0 <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
SMALL P0 <$STR(P1)>
#ACT
SET $(λϵͳռ3) 0
#ELSEACT
SET $(λϵͳռ3) 1
DEC P0 <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
SMALL P0 <$STR(P1)>
#ACT
SET $(λϵͳռ2) 0
#ELSEACT
SET $(λϵͳռ2) 1
DEC P0 <$STR(P1)>
#IF
CHECK [0] 0
#ACT
DIV P1 2
#IF
SMALL P0 <$STR(P1)>
#ACT
SET $(λϵͳռ1) 0
#ELSEACT
SET $(λϵͳռ1) 1
DEC P0 <$STR(P1)>
}