fun{MyFunction Map}
      local FUN in
     fun{FUN Time}
        local Pos1 Pos2 Pos3 Pos4 X Y V R in
           X = 200.0
           Y = 400.0
           Pos1 = pt(x:X y:200.0)
           Pos2 = pt(x:X y:400.0)
           Pos3 = pt(x:Y y:200.0)
           Pos4 = pt(x:Y y:400.0)
           V = realitem(kind:water p1:Pos1 p2:Pos2 p3:Pos3 p4:Pos4)
           R = pokeitem(kind:pokemon position:Pos2)
           V
        end
     end

     [fun{$ Time} pokeitem(kind:pokemon position:pt(x:Time y:250.0))end FUN]
      end

   end