weedExpression (Value TypeInt value depth)
  | intVal > 2147483647 = Just "Integer literal out of range"
  | otherwise = Nothing
  where intVal = read value
weedExpression (Value TypeInt value depth)
  | intVal > 2147483647 = Just "Integer literal out of range"
  | otherwise = Nothing
  where intVal = read value
weedExpression (Value TypeInt value depth)
  | intVal > 2147483647 = Just "Integer literal out of range"
  | otherwise = Nothing
  where intVal = read value