runOne :: String -> IO ()
runOne expr = primitiveBindings >>= flip evalAndPrint expr
runOne :: String -> IO ()
runOne expr = primitiveBindings >>= flip evalAndPrint expr
runOne expr = primitiveBindings >>= flip evalAndPrint expr