ghc calc funct