Как грамотно именовать переменные

[deni_ok]

Понравились имена аргументов в GHCi-шной реализации функции isInfixOf:

isInfixOf :: (Eq a) => [a] -> [a] -> Bool
isInfixOf needle haystack = any (isPrefixOf needle) (tails haystack)

:-)