get-promptの実装

*yaoy-config*の位置を変えた

新たに実装
get-prompt      標準入力から文字列を一行取って返す
get-pass        = get-prompt
                これは非常に良くないことです。
length>?        リストxの長さがkより大きければリストのk番目
                以降の要素からなるリストを返し、さもなければ
                #fを返す

let-with-list lst ((var default) ...) body ...
        各変数varについて、n番目(zero-indexed)が(not (length>? lst n))
        ならば(list-ref lst n)に、さもなければdefaultを評価
        した値に束縛されているようなローカルな環境を作成し、
        その中でbody ...を評価します。各varはシンボルでなく
        てはならず、重複があってはなりません。body ...の最後
        の式の値がこのフォームの値となります。
registerをlet-with-listで書き換えた