#!/bin/sh

# print octal mode for a file

# License: LGPLv2

if test $Argc -ne 1 {
    echo "Usage: $[basename $0] path" >&2
    exit 1
}

stat $1 | sed -n 's/^Access: (\([0-9]\{1,\}\).*/\1/p'