main = do print $ scanl1 min ([] :: [Free [] Int])
main = do print $ scanl1 min ([] :: [Int])
main = do print $ ([] :: [Free [] Int])