---input---
/* Comments /* can nest */
still a comment
*/

:- module(maplist, maplist/3)

assert(world:done). % asserts

sibling(X, Y)      :- parent_child(Z, X), parent_child(Z, Y).

parent_child(X, Y) :- father_child(X, Y).
parent_child(X, Y) :- mother_child(X, Y).

mother_child(trude, sally).

father_child(tom, sally).
father_child(tom, erica).
father_child(mike, tom).


---tokens---
'/*'          Comment.Multiline
' Comments '  Comment.Multiline
'/*'          Comment.Multiline
' can nest '  Comment.Multiline
'*/'          Comment.Multiline
'\nstill a comment\n' Comment.Multiline

'*/'          Comment.Multiline
'\n\n'        Text

':-'          Punctuation
' '           Text
'module'      Name.Function
'('           Punctuation
'maplist'     Literal.String.Atom
','           Punctuation
' '           Text
'maplist'     Literal.String.Atom
'/'           Operator
'3'           Literal.Number.Integer
')'           Punctuation
'\n\n'        Text

'assert'      Name.Function
'('           Punctuation
'world'       Name.Namespace
':'           Punctuation
'done'        Literal.String.Atom
')'           Punctuation
'.'           Punctuation
' '           Text
'% asserts'   Comment.Single
'\n\n'        Text

'sibling'     Name.Function
'('           Punctuation
'X'           Name.Variable
','           Punctuation
' '           Text
'Y'           Name.Variable
')'           Punctuation
'      '      Text
':-'          Punctuation
' '           Text
'parent_child' Name.Function
'('           Punctuation
'Z'           Name.Variable
','           Punctuation
' '           Text
'X'           Name.Variable
')'           Punctuation
','           Punctuation
' '           Text
'parent_child' Name.Function
'('           Punctuation
'Z'           Name.Variable
','           Punctuation
' '           Text
'Y'           Name.Variable
')'           Punctuation
'.'           Punctuation
'\n\n'        Text

'parent_child' Name.Function
'('           Punctuation
'X'           Name.Variable
','           Punctuation
' '           Text
'Y'           Name.Variable
')'           Punctuation
' '           Text
':-'          Punctuation
' '           Text
'father_child' Name.Function
'('           Punctuation
'X'           Name.Variable
','           Punctuation
' '           Text
'Y'           Name.Variable
')'           Punctuation
'.'           Punctuation
'\n'          Text

'parent_child' Name.Function
'('           Punctuation
'X'           Name.Variable
','           Punctuation
' '           Text
'Y'           Name.Variable
')'           Punctuation
' '           Text
':-'          Punctuation
' '           Text
'mother_child' Name.Function
'('           Punctuation
'X'           Name.Variable
','           Punctuation
' '           Text
'Y'           Name.Variable
')'           Punctuation
'.'           Punctuation
'\n\n'        Text

'mother_child' Name.Function
'('           Punctuation
'trude'       Literal.String.Atom
','           Punctuation
' '           Text
'sally'       Literal.String.Atom
')'           Punctuation
'.'           Punctuation
'\n\n'        Text

'father_child' Name.Function
'('           Punctuation
'tom'         Literal.String.Atom
','           Punctuation
' '           Text
'sally'       Literal.String.Atom
')'           Punctuation
'.'           Punctuation
'\n'          Text

'father_child' Name.Function
'('           Punctuation
'tom'         Literal.String.Atom
','           Punctuation
' '           Text
'erica'       Literal.String.Atom
')'           Punctuation
'.'           Punctuation
'\n'          Text

'father_child' Name.Function
'('           Punctuation
'mike'        Literal.String.Atom
','           Punctuation
' '           Text
'tom'         Literal.String.Atom
')'           Punctuation
'.'           Punctuation
'\n'          Text
