(*) Test7.fss

component Test7

  import MicroList.{...}

  export Executable

  run (args : String ...) = do
    var my_list : List[\Int\]
    var empty_flag : Int
    var found_flag : Int
    var target : Int
    var position : Int
    my_list := (<|14, 198, 47, 918, 401, 578, 46|>)
    empty_flag := (0)
    found_flag := (0)
    target := (401)
    position := (0)
    while empty_flag + found_flag = 0 do
      my_list := (tail (my_list))
      if isEmpty (my_list) then
        empty_flag := (1)
      else
        if head (my_list) = target then
          found_flag := (1)
        end
      end
      position := (position + 1)
    end
    if isEmpty (my_list) then
      println (0-1)
    else
      println (position)
    end
  end

end