import Data.Char
 
data Lexem = O Char | N Double
	deriving (Show)
 
getNumber x = _getNumber x 0.0 
 
_getNumber [] n  = (n, [])
_getNumber l@(h:t) n  
	| h == '.'   = _getNumber2 1 t n 
	| isDigit h  = _getNumber t. (+) (digit h) $ 10 * n 
	| otherwise  = (n, l) 
 
_getNumber2 d [] n  = (n/d, [])
_getNumber2 d l@(h:t) n  
	| isDigit h = _getNumber2 (d*10) t. (+) (digit h) $ 10 * n 
	| otherwise =(n, l) 
 
digit =  fromIntegral.digitToInt
 
recognize acc [] = acc 
 
recognize acc l@(h:t)  	
	| elem h "+-/*()"  = recognize (O h: acc) t
	| isDigit h        = recognize (N (fst next) : acc) $ snd next
	| otherwise        = recognize acc t 
		where next = getNumber l
 
calc (x:acc) [] = (x,[])
calc acc (O ')':t) = calc (fst next:acc) (snd next)
	where next = calc [] t
calc (x:acc) (O '(':t) = (x,t)
calc acc (N x:t) = calc (x:acc) t
calc (x:y:acc) (O '+':t) = calc (x+y:acc) t
calc (x:y:acc) (O '-':t) = calc (x-y:acc) t
calc (x:y:acc) (O '/':t) = calc (x/y:acc) t
calc (x:y:acc) (O '*':t) = calc (x*y:acc) t
 
calculate = fst.calc [].recognize []
 
main = print$ calculate "/ + 2 * 5 6 (- 10 2)"
 

aW1wb3J0IERhdGEuQ2hhcgoKZGF0YSBMZXhlbSA9IE8gQ2hhciB8IE4gRG91YmxlCglkZXJpdmluZyAoU2hvdykKCmdldE51bWJlciB4ID0gX2dldE51bWJlciB4IDAuMCAKCl9nZXROdW1iZXIgW10gbiAgPSAobiwgW10pCl9nZXROdW1iZXIgbEAoaDp0KSBuICAKCXwgaCA9PSAnLicgICA9IF9nZXROdW1iZXIyIDEgdCBuIAoJfCBpc0RpZ2l0IGggID0gX2dldE51bWJlciB0LiAoKykgKGRpZ2l0IGgpICQgMTAgKiBuIAoJfCBvdGhlcndpc2UgID0gKG4sIGwpIAoKX2dldE51bWJlcjIgZCBbXSBuICA9IChuL2QsIFtdKQpfZ2V0TnVtYmVyMiBkIGxAKGg6dCkgbiAgCgl8IGlzRGlnaXQgaCA9IF9nZXROdW1iZXIyIChkKjEwKSB0LiAoKykgKGRpZ2l0IGgpICQgMTAgKiBuIAoJfCBvdGhlcndpc2UgPShuLCBsKSAKCmRpZ2l0ID0gIGZyb21JbnRlZ3JhbC5kaWdpdFRvSW50CgpyZWNvZ25pemUgYWNjIFtdID0gYWNjIAoKcmVjb2duaXplIGFjYyBsQChoOnQpICAJCgl8IGVsZW0gaCAiKy0vKigpIiAgPSByZWNvZ25pemUgKE8gaDogYWNjKSB0Cgl8IGlzRGlnaXQgaCAgICAgICAgPSByZWNvZ25pemUgKE4gKGZzdCBuZXh0KSA6IGFjYykgJCBzbmQgbmV4dAoJfCBvdGhlcndpc2UgICAgICAgID0gcmVjb2duaXplIGFjYyB0IAoJCXdoZXJlIG5leHQgPSBnZXROdW1iZXIgbAoKY2FsYyAoeDphY2MpIFtdID0gKHgsW10pCmNhbGMgYWNjIChPICcpJzp0KSA9IGNhbGMgKGZzdCBuZXh0OmFjYykgKHNuZCBuZXh0KQoJd2hlcmUgbmV4dCA9IGNhbGMgW10gdApjYWxjICh4OmFjYykgKE8gJygnOnQpID0gKHgsdCkKY2FsYyBhY2MgKE4geDp0KSA9IGNhbGMgKHg6YWNjKSB0CmNhbGMgKHg6eTphY2MpIChPICcrJzp0KSA9IGNhbGMgKHgreTphY2MpIHQKY2FsYyAoeDp5OmFjYykgKE8gJy0nOnQpID0gY2FsYyAoeC15OmFjYykgdApjYWxjICh4Onk6YWNjKSAoTyAnLyc6dCkgPSBjYWxjICh4L3k6YWNjKSB0CmNhbGMgKHg6eTphY2MpIChPICcqJzp0KSA9IGNhbGMgKHgqeTphY2MpIHQKCQpjYWxjdWxhdGUgPSBmc3QuY2FsYyBbXS5yZWNvZ25pemUgW10KCm1haW4gPSBwcmludCQgY2FsY3VsYXRlICIvICsgMiAqIDUgNiAoLSAxMCAyKSIK