(If
  (DBracket {B! {B1 UNARY_FILE_f {[VarSub HOME] [LIT_CHARS /.ssh/authorized_keys]}}})
  (List
    (If
      (DBracket {B! {B1 UNARY_FILE_d {[VarSub HOME] [LIT_CHARS /.ssh]}}})
      (Com {[LIT_CHARS mkdir]} {[VarSub HOME] [LIT_CHARS /.ssh]}      )
    )
    (Com {[LIT_CHARS cp]} {[VarSub 1]} {[VarSub HOME] [LIT_CHARS /.ssh/authorized_keys]}    )
  )
)