((show :: Bool -> String) . succ . read) "False"