place :: Layout -> (Globals, [Placement])
place Screen{..} = (scrGlobals, execWriter (traverse_ placeScreen scrPrims))
place :: Layout -> (Globals, [Placement])
place Screen{..} = (scrGlobals, execWriter (traverse_ placeScreen scrPrims))
place Screen{..} = (scrGlobals, execWriter (traverse_ placeScreen scrPrims))