#!/usr/bin/perl -l
sub i{'-'}
sub o{$m&$_[0]?$m&$_[1]?'s':x:$m&$_[1]?S:i}
print qw(? c d b - l s)[($m=(lstat)[2])>>13]
,$m&256?r:i
,$m&128?w:i
,o(64,2048)
,$m&32?r:i
,$m&16?w:i
,o(8,1024)
,$m&4?r:i
,$m&2?w:i
,o(1,512)
," $_"for@ARGV;