taras2k

{-# LANGUAGE QuasiQuotes #-}

module Exlog where

import           Control.Applicative
import           Control.Monad       (unless, void)
import           Data.Char           (isSpace)
import           Data.List           (dropWhile, dropWhileEnd)
import qualified Data.Map.Strict     as M
import           Data.Time

taras2k

{-# LANGUAGE FlexibleContexts  #-}
{-# LANGUAGE FlexibleInstances #-}

module Funct where

import           Data.Data

-- import           Data.Typeable
import           Test.QuickCheck
import           Test.QuickCheck.Function

taras2k

module Phone where

import           Data.Char  (isLetter, isUpper, toLower, toUpper)
import           Data.List  (elemIndex, elemIndices, find, nub, sortBy)
import           Data.Maybe (fromMaybe)
import           Data.Tuple (swap)

phone :: [(Char, String)]
phone =
  [ ('0', " +_0")