Why is the function $`$wordsnopunc$/1`($replacing all punctuation with spaces before breaking into words$)$ failing? How can I edit my code to create a secondary function that returns the first n words of the text?

Now replace all punctuation with spaces before breaking into words. The function should be called wordsnopunc$/1.$

$8\%$CONSULT

sYour code here

wordsnopunc$($X$)$ :$-$

open$(\text{'}$alice$.$txt$\text{'},$ read, Str$),\%$ Step $1$: Open the file for reading

read$\_$string$($Str$,\_,$ Input$),\%$ Step $2$: Read the entire content of the file into the Text variable

string$\_$chars$($Input$,$ CharList$),\%$ Convert input string to list of characters

replace$\_$punctuation$($CharList$,$ CleanList$),\%$ Replace punctuation with spaces

string$\_$chars$($CleanString$,$ CleanList$),\%$ Convert back to string

split$\_$string$($CleanString$,"","",$ Words$).\%$ Split the string into words

close$($Str$).\%$ Step $5$: Close the file stream

Prolog: Warning: $/$tmp$/$tmp$4$lvgjrwj$.$pl:$2$:

Prolog: Warning: Singleton variables: $[$X$,$Words$]$

Prolog: Warning: $/$tmp$/$tmp$4$lvgjrwj$.$pl:$9$:

Prolog: Warning: Singleton variables: $[$Str$]$

Prolog: ERROR: $/$tmp$/$tmp$4$lvgjrwj$.$pl:$9$:

Prolog: ERROR: No permission to modify static procedure $`$close$/1\text{'}$

true

wordsnopunc$($X$),$ X $>30500,$ X

Traceback $($most recent call last$)$:

File $"/$usr$/$local$/$lib$/$python$3\mathrm{.}8/$dist$-$packages$/$swi$\_$prolog$\_$kernel$/$kernel$.$py$",$ line $140,$ in do$\_$execute

self.$\_$execute$($code$)$

File $"/$usr$/$local$/$lib$/$python$3\mathrm{.}8/$dist$-$packages$/$swi$\_$prolog$\_$kernel$/$kernel$.$py$",$ line $100,$ in $\_$execute

result $=$ self.$\_$thread.query$($code$)$

File $"/$usr$/$local$/$lib$/$python$3\mathrm{.}8/$dist$-$packages$/$swiplserver$/$prologmqi$.$py$",$ line $682,$ in query

return self.$\_$return$\_$prolog$\_$response$()$

File $"/$usr$/$local$/$lib$/$python$3\mathrm{.}8/$dist$-$packages$/$swiplserver$/$prologmqi$.$py$",$ line $829,$ in $\_$return$\_$prolog$\_$response

raise PrologError$($jsonResult$)$

swiplserver.prologmqi.PrologError: existence$\_$error$($procedure$,\text{'}/\text{'}($replace$\_$punctuation, $2))$

Question #$5$

Now rewrite wordsnopunc above as wordsn$/2$ to return the first n words of the text. It should take two arguments: n and the returned text.

$\%\%$CONSULT

$\%$Your code here

wordsn$($

$5,$

$["$The$",$ "Project", "Gutenberg", "eBook", $"$of$"]$

$).$