---input---
(= c (int \;)) (do (.readLine s) :line-start)

---tokens---
'('           Punctuation
'= '          Name.Builtin
'c'           Name.Variable
' '           Text
'('           Punctuation
'int '        Name.Builtin
'\\;'         Literal.String.Char
')'           Punctuation
')'           Punctuation
' '           Text
'('           Punctuation
'do '         Keyword
'('           Punctuation
'.readLine'   Name.Function
' '           Text
's'           Name.Variable
')'           Punctuation
' '           Text
':line-start' Literal.String.Symbol
')'           Punctuation
'\n'          Text