! Copyright (C) 2013 Your name.
! See http://factorcode.org/license.txt for BSD license.
USING: io.files.info command-line accessors namespaces sequences io ;
IN: cli-mount-point

: mountpoint ( x -- x ) file-system-info device-name>> ;

: cli-mount-point ( -- ) command-line get first mountpoint print ;

MAIN: cli-mount-point