niKindToString nik = case nik of
    NIKConstant -> "constant"
    NIKVariable -> "variable"
    NIKSignal -> "signal"
    NIKFile -> "file"
    NIKAlias anik -> niKindToString anik ++ " alias"
niKindToString nik = case nik of
    NIKConstant -> "constant"
    NIKVariable -> "variable"
    NIKSignal -> "signal"
    NIKFile -> "file"
    NIKAlias anik -> niKindToString anik ++ " alias"