printFn :: VarMap -> [VariableValue] -> IO VarMap
printFn vars [(IntVar value)] =
    do print value
       return vars
printFn :: VarMap -> [VariableValue] -> IO VarMap
printFn vars [(IntVar value)] =
    do print value
       return vars
printFn vars [(IntVar value)] =
    do print value
       return vars