SIP (Session Initiation Protocol) stack implemented in Haskell language