;; abaya-shop -- modest abaya clothing store
(define-data-var item-count uint u0)
(define-map items uint { seller: principal, color: (string-ascii 20), size: (string-ascii 10), price: uint, sold: bool })
(define-public (list-abaya (color (string-ascii 20)) (size (string-ascii 10)) (price uint))
(let ((id (+ (var-get item-count) u1)))
(var-set item-count id)
(map-set items id { seller: tx-sender, color: color, size: size, price: price, sold: false }) (ok id)))
(define-public (buy-abaya (id uint))
(let ((i (unwrap! (map-get? items id) (err u404))))
(map-set items id (merge i { sold: true })) (ok true)))
(define-read-only (get-item (id uint)) (map-get? items id))
(define-read-only (get-count) (var-get item-count))