Alexey Kotlyarov koterpillar

I hereby claim:

To claim this, I am signing this object:

	import Control.Monad (guard)

	import Data.List

	import qualified Data.Map as Map
	import Data.Map (Map)

	import Data.Maybe

	type Point = [Int]

	// This enables kind projector (https://github.com/typelevel/kind-projector) in a Gradle build.
	// Versions used: Gradle 6.0.1, Scala 2.13.1.

	ext {
	scalaVersionFull = '2.13.1'
	scalaVersion = '2.13'
	}

	configurations {
	kindProjectorPlugin

	import Control.Concurrent.STM
	import qualified Data.Map as M
	import Data.Maybe

	main = do
	pendingV <- atomically $ newTVar M.empty
	let handleFst (key, ourVal) =
	atomically $ do
	pending <- readTVar pendingV
	case M.lookup key pending of