(display (sd-am-inq-name (first (sd-am-sheet-struct-flats (sd-am-inq-sheet (sd-am-inq-curr-sheet))))))