31 scan(Str) ->  function
45 scan([X|Str], Line, Out, Type) when ?is_upper(X) ->  function
48 scan([X|Str], Line, Out, Type) when ?is_lower(X) ->  function
51 scan([X|Str], Line, Out, Type) when ?is_number(X) ->  function
55 scan([$=,$= | Str], Line, Out, _Type) ->  function
57 scan([$!,$= | Str], Line, Out, _Type) ->  function
59 scan([$<,$= | Str], Line, Out, _Type) ->  function
61 scan([$>,$= | Str], Line, Out, _Type) ->  function
63 scan([$> | Str], Line, Out, _Type) ->  function
65 scan([$< | Str], Line, Out, _Type) ->  function
69 scan([$+ | Str], Line, Out, Type) ->  function
71 scan([$- | Str], Line, Out, Type) ->  function
75 scan([$* | Str], Line, Out, _Type) ->  function
77 scan([$/ | Str], Line, Out, _Type) ->  function
81 scan([9| T], Line, Out, Type) -> scan(T, Line, Out, Type);  function
83 scan([32| T], Line, Out, Type) -> scan(T, Line, Out, Type);  function
85 scan([$\r|Str], Line, Out, Type) ->  function
88 scan([$\n|Str], Line, Out, Type) ->  function
91 scan([92, 92 | Str], Line, Out, Type) ->  function
94 scan([92, 39 | Str], Line, Out, Type) ->  function
97 scan([92 | Str], Line, Out, Type) ->  function
100 scan([$_ | Str], Line, Out, dollar) ->   function
103 scan([$$, 92 | Str], Line, Out, _Type) ->   function
105 scan([$$ | Str], Line, Out, _Type) ->   function
107 scan([$"|Str], Line, Out, Type) ->  function
109 scan([$'|Str], Line, Out, Type) ->  function
114 scan([$. | Str], Line, [{'ADDOP', Op}|Out], _) ->  function
117 scan([$. | Str], Line, Out, dollar) ->  function
120 scan([$. | Str], Line, Out, Type) ->  function
122 scan([C|Str], Line, Out, Type) ->  function
125 scan([], _Line, Out, _Type) ->  function