Tekstiviesti: Functional grammar in Prolog