module Examples.Alt where

-- import Proton
-- import Debug.Trace
-- import Data.Functor.Identity
-- import Data.Foldable
-- import Linear

-- test = [Just (1 :: Int), Nothing, Just 3] & collapse *% sum
-- test = [Nothing, Just 2] & collapse *% (*100) . sum
-- test = (V3 (Just 1) (Just 2) (Just 3)) &  convolving *% (*100) . sum

    -- print $ Measurements [5, 4, 3, 1] & measureNearest .* flowers