added add.vs with very, very simple Haskell function