posTween :: Monad m => VarT m Float (V2 Float)
posTween = V2 <$> x <*> y
  where x  = flip tweenStream 0 $ fix $ \nxt -> do
               tween_ easeInExpo 0 100 1
               tween_ easeOutExpo 100 200 1
               constant 200 1
               tween_ easeInExpo 200 100 1
               tween_ easeOutExpo 100 0 1
               constant 0 1
               step 0
               nxt
        y  = flip tweenStream 0 $ fix $ \nxt -> do
               constant 0 1
               tween_ easeInExpo 0 100 1
               tween_ easeOutExpo 100 200 1
               constant 200 1
               tween_ easeInExpo 200 100 1
               tween_ easeOutExpo 100 0 1
               step 0
               nxt
posTween :: Monad m => VarT m Float (V2 Float)
posTween = V2 <$> x <*> y
  where x  = flip tweenStream 0 $ fix $ \nxt -> do
               tween_ easeInExpo 0 100 1
               tween_ easeOutExpo 100 200 1
               constant 200 1
               tween_ easeInExpo 200 100 1
               tween_ easeOutExpo 100 0 1
               constant 0 1
               step 0
               nxt
        y  = flip tweenStream 0 $ fix $ \nxt -> do
               constant 0 1
               tween_ easeInExpo 0 100 1
               tween_ easeOutExpo 100 200 1
               constant 200 1
               tween_ easeInExpo 200 100 1
               tween_ easeOutExpo 100 0 1
               step 0
               nxt
posTween = V2 <$> x <*> y
  where x  = flip tweenStream 0 $ fix $ \nxt -> do
               tween_ easeInExpo 0 100 1
               tween_ easeOutExpo 100 200 1
               constant 200 1
               tween_ easeInExpo 200 100 1
               tween_ easeOutExpo 100 0 1
               constant 0 1
               step 0
               nxt
        y  = flip tweenStream 0 $ fix $ \nxt -> do
               constant 0 1
               tween_ easeInExpo 0 100 1
               tween_ easeOutExpo 100 200 1
               constant 200 1
               tween_ easeInExpo 200 100 1
               tween_ easeOutExpo 100 0 1
               step 0
               nxt