#!/usr/bin/env -S emacs -Q --script
(let ((i 0))
  (while (< i 10)
    (message (int-to-string i))
    (setq i (+ i 1))))

(shell-command (concat "eww " "open " "battery"))