-- | 
getPenType :: MainCoroutine PenType 
getPenType = view (penInfo.penType) <$> St.get
getPenType :: MainCoroutine PenType
getPenType = view (penInfo.penType) <$> St.get
getPenType = view (penInfo.penType) <$> St.get