Messing around with Prolog (create simple parser)