getNumberOfPhyCores :: Int
getNumberOfPhyCores = unsafePerformIO $
    length . filter (isInfixOf "processor") . lines <$> readFile proc_cpuinfo
getNumberOfPhyCores :: Int
getNumberOfPhyCores = unsafePerformIO $
    length . filter (isInfixOf "processor") . lines <$> readFile proc_cpuinfo
getNumberOfPhyCores = unsafePerformIO $
    length . filter (isInfixOf "processor") . lines <$> readFile proc_cpuinfo