a bit of haskell magic with VK API