# ensemble

substep=2
done=yes
!if $all_steps=0
  badstep=!trim $badstep
  !bound badstep between integer 0 and $stepcnt+1 default $stepcnt+1
  sss=!item 1 of $bad_steps
  !default sss=0
  !if $badstep=$sss
    module_score=10
  !else
    error=bad_step
    !if $badstep=0 or $badstep notitemof $bad_steps
      module_score=0
    !else
      module_score=5
    !endif
  !endif
!else
  !distribute item 0, into er,expstep
  !for i=1 to $stepcnt
    !if ($i isitemof $badstep and $i notitemof $bad_steps) \
        or ($i notitemof $badstep and $i isitemof $bad_steps)
      !advance er
      m=!line $i of $remarks
      m=!trim $m
      !if $i isitemof $bad_steps or $m!=$empty
        expstep=!append item $i to $expstep
      !endif
    !endif
  !next i
 module_score=$[10*($stepcnt-$er)/$stepcnt]
!endif
