#!/usr/bin/env rexx
address system "echo $HOME" with output stem home.

parse arg note
if note \= "" then note = changestr(" ",note,"_")
else note = "text_memo"

filename=home.1,
    ||"/Documents/memos/",
    ||changestr("-",date("I"),"")||"_",
    ||changestr(":",time(),"")||"_"||note||".md"

address system "tilde "||filename