1 toInt(x) :: Char -> Int{
2 if(x == '0'){ return 0;
3 } else { if(x == '1'){ return 1;
4 } else { if(x == '2'){ return 2;
5 } else { if(x == '3'){ return 3;
6 } else { if(x == '4'){ return 4;
7 } else { if(x == '5'){ return 5;
8 } else { if(x == '6'){ return 6;
9 } else { if(x == '7'){ return 7;
10 } else { if(x == '8'){ return 8;
11 } else { if(x == '9'){ return 9;
12 } else { return -1; }}}}}}}}}}
15 isDigit(x) :: Char -> Bool {
16 return toInt(x) != -1;
19 strToInt(x) :: [Char] -> Int {
30 i = i*10 + toInt(xs.hd);