https://videosashka.com/watch/uxv62QQajx8/implementing-linear-haskell