}
print {Insert Text: }
folders: copy []
foreach folder read %./Teachers/ [
if find to-string folder {/} [
append folders to-string folder
]
]
print {Teacher:
}
]
print rejoin [
{