create-file を princ を使うように修正したような感ある