REBOL[
    Title:   "REBOL shell"
    Date:    now/time
    Version: 0.1
    File:    %rsh.r
    Author:  "Viktor Pavlu"
    Email:   viktor_pavlu@hotmail.com
    Tabs:    4
]

;prompt
system/console/prompt: [ join what-dir ">" ]
system/console/output: ""

ls: :list-dir
dir: :list-dir

cat: func [ file [ file! string! ] "file to read" ] [ print read to-file file ]
type: :cat

time: does [ print now/time ]

cd: func [ 'target ] [
    if none? target [ target: :system/options/home ]

    change-dir to-file to-url target
]

read-dir: does [ read %. ]