tableIndex :: Double -> Double tableIndex x | True = x where f _ = x main = "Foo" -- Foo