proc makeList {stop} {
  for {set i 0} {$i < $stop} {incr i 2} {
    lappend lst $i
  }
  return $lst
}

puts [makeList 5]