(List
  (Com {[LIT_CHARS set]} {[LIT_CHARS -e]}  )
  (FunctionDef print_usage []
    (List
      (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "This script helps copy a GCE image from a source to a target project"]]}      )
      (Com {[LIT_CHARS echo]} {[LIT_CHARS -e]} {[DQ [\ LIT_ESCAPED_CHAR "\\n"][LIT_CHARS "Usage:"][\ LIT_ESCAPED_CHAR "\\n"][VarSub 0][LIT_CHARS " <from-image-name> <from-project-name> <to-project-name> <to-image-name>"][\ LIT_ESCAPED_CHAR "\\n"]]}      )
    )
  )
  (If
    (Com {[LIT_DBRACKET_LIKE "["]} {[VarSub #]} {[LIT_CHARS -ne]} {[LIT_CHARS 4]} {[LIT_DBRACKET_LIKE "]"]}    )
    (List
      (Com {[LIT_CHARS print_usage]}      )
      (Com {[LIT_CHARS exit]} {[LIT_CHARS 1]}      )
    )
  )
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('FROM_IMAGE', {[VarSub 1]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('FROM_PROJECT', {[VarSub 2]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('TO_PROJECT', {[VarSub 3]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('TO_IMAGE', {[VarSub 4]})])
  (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "Copying image "][VarSub FROM_IMAGE][LIT_CHARS " from project "][VarSub FROM_PROJECT][LIT_CHARS " to project "][VarSub TO_PROJECT][LIT_CHARS " as image "][VarSub TO_IMAGE][LIT_CHARS ...]]}  )
  (Com {[LIT_CHARS gcloud]} {[LIT_CHARS compute]} {[LIT_CHARS --project]} {[VarSub TO_PROJECT]} {[LIT_CHARS disks]} {[LIT_CHARS create]} {[VarSub TO_IMAGE]} {[LIT_CHARS --image] [LIT_DBRACKET_LIKE "="] [LIT_CHARS https] [LIT_OTHER ":"] [LIT_CHARS //www.googleapis.com/compute/v1/projects/] [VarSub FROM_PROJECT] [LIT_CHARS /global/images/] [VarSub FROM_IMAGE]}  )
  (Com {[LIT_CHARS gcloud]} {[LIT_CHARS compute]} {[LIT_CHARS --project]} {[VarSub TO_PROJECT]} {[LIT_CHARS images]} {[LIT_CHARS create]} {[VarSub TO_IMAGE]} {[LIT_CHARS --source-disk] [LIT_DBRACKET_LIKE "="] [VarSub TO_IMAGE]} {[LIT_CHARS --description] [LIT_DBRACKET_LIKE "="] [DQ [LIT_CHARS "Cloned from projects/"][VarSub 2][LIT_CHARS /global/images/][VarSub 1][LIT_CHARS " by "][VarSub USER][LIT_CHARS " on "][ComSub (Com {[LIT_CHARS date]})]]}  )
  (Com {[LIT_CHARS gcloud]} {[LIT_CHARS -q]} {[LIT_CHARS compute]} {[LIT_CHARS --project]} {[VarSub TO_PROJECT]} {[LIT_CHARS disks]} {[LIT_CHARS delete]} {[VarSub TO_IMAGE]}  )
)