calcFunc f                = do putStr_Err $ "calc func " ++ show f
                               return Null
calcFunc f                = do putStr_Err $ "calc func " ++ show f
                               return Null
calcFunc f                = do putStr_Err $ "calc func " ++ show f
                               return Null