Someone please help me with to code this Racket code

1 | #1ang racket 2(require racklog) 3181 4 Enter some facts 8 (define %knows 9rel 10 12 13 14 15 16 ('Odysseus Tex) 1 ('Odysseus 'Racket)1 ('Odysseus Prolog) ] ('Odysseus 'Penelope) ) I('Penelope 'TeX) ] ('Penelope Prolog)] 'Penelope Odysseus) 1 t( ' Telemachus TeX) ] ('Telemachus "calculus) ])) 1.0 20 #1 Enter some definitions related to the facts 23 24 | (define %computer-literate 25(rel (person) 26 27 28 29 30 [ (person) 8knows person 'TeX) knows person "Racket)) (person) knows person 'TeX) (8 knows person ' Prolog)) ) 33 INTERACTION EXAMPLES 34 35 We can ask questions abput what someone knows 36 37 | > (%which () 38 (8knows 'Odysseus 'TeX) ) 41 |> (%which () 42 43 44 ef (8knows 'Odysseus 'calculus)) We can query the database to get lists 47 48 which (what) 49 50 51 52 53whatTeX)) (Sknows 'Odysseus what)) 55 (what. Racket)) 56 (8more) ((what Prolog)) ( more) 59(what . Penelope)) 60|> (%more) 61 if